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(54) Tide: SYSTEM AND METHOD FOR MANAGING ADMINISTRATION OF MEDICINE 

(57) Abstract 

A method for managing doses of med- 
ication delivered to a patient is described. 
A computer system (101) receives dosage 
data and administration data that represent, 
respectively, times and quantities for taking 
a drug that are prescribed for a patient, and 
the times and quantities the drug is deliv- 
ered to the patient Based on the dosage 
and administration data, compliance informa- 
tion is generated and displayed, representing 
the degree to which a drag has been deliv- 
ered in accordance with the dosage data. In 
one aspect, a calendar (126) in the form of a 
grid comprised of grid elements is displayed. 
Each grid element represents a period, such 
as a day in a month, and contains one or 
more icons. An icon's appearance indicates 
whether a particular dose was delivered prop- 
erly, when a grid element is selected by a 
user, more detail is displayed about the ad- 
ministration of the drug for the respective 
day. 
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SYSTEM AND METHOD FOR MANAGING ADMINISTRATION OF MEDICINE 

RELATED APPLICATIONS 

This application claims priority from prior U.S. provisional application serial number 

60/071,107 filed on January 12, 1998, entitled "Method and System for Monitoring Doses," 

5 which is incorporated by reference in its entirety as if fully set forth herein. 

COPYRIGHT NOTICE 

A portion of the disclosure of this patent document contains material that is subject to 
copyright protection. The copyright owner has no objection to the facsimile reproduction in 
paper copies by anyone of the patent document or the patent disclosure, as it appears in the 
10 Patent & Trademark Office patent file or records, but otherwise reserves all other copyright 
rights whatsoever. 

FIELD OF THE INVENTION 

The present invention relates generally to computer systems. The invention relates 
more specifically to managing administration of medicine, monitoring dosages of drugs given 
1 5 to patients, and the like. 

BACKGROUND OF THE INVENTION 

Monitoring dosages of drugs or medicines for patients requires communication among 
several levels. First, a physician must diagnose and prescribe a dosage for a patient. The 
medication must then be distributed accurately and, finally, the patient or a care provider must 
20 ensure that the dosages are properly administered to or taken by the patient. 

For many reasons, ensuring that accurate dosages are delivered to a patient in a 
consistently timely manner can be difficult despite the importance of accurate administration 
in many instances. 

Therefore, it is desirable to provide a method of automating the delivery of medicine 
25 and monitoring the delivery of medicine. 

Moreover, special challenges are presented in managing patients who are taking more 
than one medication. Elderly patients on multiple medications may have difficulty keeping 
track of whether they have taken all their medications, when, and in what quantity. In the 
clinical setting, proper administration of multiple medications to acutely ill patients is 
30 challenging for care providers. 

Thus there is a need to track multiple medications and multiple dispensing 
mechanisms, and to present data for all such dispensers in a report. 

To facilitate the proper administration of medication and the tracking of when it is 
administered, medication dispensing devices are used. Conventional medication dispensing 
35 devices typically include a medicine container and an alarm mechanism which notifies a 

patient at the time intervals the dose(s) are due. Each time the patient opens the container, the 
device records the event and the time it occurred. One example of a conventional medication 
dispensing device is ajar with lid which incorporates an alarm mechanism and a recording 
mechanism. When the lid is removed, the recording mechanism records this event and the 
40 time it occurred. 
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One drawback to conventional dispensing devices is that they do not control access to 
medicine or the quantities dispensed. Thus, there is little assurance that when a dispensing 
device is opened, the proper amount is dispensed. Another drawback is that once opened, the 
dispensing devices may be re-opened immediately. Thus a confused elderly patient, having 
5 forgotten the dose they just took, may take another far too soon. 

Thus, there is further need for a system that controls dispensing times and amounts and 
which tracks those times and amounts. 

SUMMARY OF THE INVENTION 

The foregoing needs, and other needs and objects that will become apparent from the 

10 following discussion, are fulfilled by the present invention, which comprises, in one aspect, a 
method for m a n a g i ng doses of medication delivered to a patient Generally, a computer system 
receives dosage data and administration data. The dosage data represents a drug prescription, 
and includes, but is not limited to, one or more times for taking the drug, the quantities in 
which the drug is to be taken by the patient, or a combination thereof. The administration data 

1 5 represents when and in what quantities each dose in a set of doses of the drug is actually 

delivered to the patient Based on the dosage and administration data, compliance information 
is generated and displayed. Compliance information indicates the degree to which a drug has 
been delivered in accordance with the dosage data. The compliance information can be 
displayed in variety of forms. 

20 According to another aspect, a calendar in the form of a grid comprised of grid 

elements is displayed. Each grid element represents a period, such as a day in a month, and 
contains one or more icons. An icon's appearance indicates whether a particular dose was 
delivered properly. For example, a green square icon indicates that a dose was delivered on 
time, and a triangular red icon indicates that a dose was not delivered. When a user selects a 

25 grid element, more detail is displayed about the delivery of the drug for the respective day. In 
particular, a graphical object is displayed that contains one or more icons for each dose 
delivered in the day. An icon's position along an axis of the graphical object reflects when a 
dose was delivered. 

According to another aspect, data is generated that specifies what portion of a set of 
30 doses was delivered properly. The data includes values that indicate what portions of the doses 
were delivered, and what proportion of doses were delivered on time. 

According to another aspect, dosage data is transmitted to a dosage-dispensing device. 
The dosage data includes times and quantities to deliver a drug to a patient. In addition, data 
representing a lockout period may be transmitted. The dosage-dispensing device dispenses the 
35 drug to the patient in accordance with the data transmitted to it. 
BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention is illustrated by way of example, and not by way of limitation, in 
the figures of the accompanying drawings and in which like reference numerals refer to 
similar elements and in which: 
40 FIG. 1 is a block diagram illustrating a system for monitoring patient dosages. 
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FIG. 2 is a flow chart illustrating steps for a computer-implemented method for 
monitoring patient dosages. 

FIG. 3 is a flow chart showing steps for retrieving data that is used in a system for 
monitoring the administration of doses to a patient. 
5 FIG. 4 is flow chart showing steps for transmitting dosage information to a dosage- 

dispensing device. 

FIG. 5 A is block diagram depicting a calendar in the form of a grid. 

FIG. 5B is a block diagram depicting a grid element and icons used to indicate patient 
compliance. 

10 FIG. 5C is a block diagram depicting a graphical object used to graphically represent 

when doses were delivered. 

Fig. 6 is a block diagram depicting a histogram showing dosage scores over period of 

time. 

DETAILED DESCRIPTION 

15 OVERVIEW 

One embodiment is a system and method for substantially automating the 
administration of patient dosages, the monitoring of the delivery of doses, whether or not 
timely and whether or not accurate in amount, and the accumulation of data for individual 
patients representing administration data over an extended period of time. 

20 Another embodiment encompasses accumulation of data for each patient from a 

plurality of dosage dispensing devices, and the assimilation of such data into reports which 
may be either specific for the particular patient, or an accumulation of data for an entire range 
of patients. In this way, more accurate dispensing of doses is achieved, as well as more 
accurate monitoring to facilitate detection of whether prescribed doses are being properly 

25 administered to the patients. 

A preferred embodiment provides a computer-implemented method for monitoring 
patient dosages by retrieving administration data, including times and amounts of medication 
prescribed for a patient, retrieving patient data, including times and amounts of medication 
delivered for the patient, determining evaluation data by analyzing the retrieved dosing and 

30 patient data to determine compliance of the delivered medication to the prescribed medication, 
and displaying the evaluation data. 

The method may include one or more of the following features. Patient data, including 
administration data, may be received from an associated device over a communications line, 
from local memory, or from user input. The data may be accumulated to provide a basis for 

35 patient evaluation. The patient data may be transmitted to a dosage-dispensing device, which 
dispenses doses to the patient in accordance with the received patient data. 

The evaluation data may be displayed in a variety of ways, including display in a 
patient administration report that may indicate compliance of the delivered doses to the 
prescribed dosages. In one implementation, the data retrieved may be viewed in a scrollable 

40 tabular grid, with displayed values for all medication events, and dates, times and dose sizes 
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dispensed from the dosage dispensing device. In addition, non-medication events may be 
displayed, including "bottle replaced" or other ancillary but relevant data. 

Additionally, evaluation data may be displayed in the form of a patient summary report 
which may, for example, include all information for a particular patient including name, ID, 
monitoring dates, drug, brand, and so on. In addition, a histogram may be prepared 
summarizing the patient's compliance, including calculation of a "compliance index" or 
similar quantification of the patient's overall compliance with the prescribed dosing plan. The 
evaluation data may be displayed for varying periods, such as a week, a month, or a shorter or 
longer period, and may be displayed in graphical form including options for displaying doses 
delivered, missed, or delivered but not within compliance parameters. The data may also be 
displayed in calendar form. 

In many instances, patients undergoing treatment may have multiple dosage 
dispensers. In a manner similar to the single dispenser arrangement discussed above, data for 
each such dispenser can be tracked and presented in a merged patient summary report. 
15 Likewise, a summary of all patients may be provided which may provide, in either graphical 
or tabular form, any of the selected data including name, ID, compliance index, dosage, time 
of day, or any other field. Histograms may also be developed across the patient class. ' 

Evaluation data may be provided in any suitable format, such as a data file or hard 
copy. For example, the data may be printed or transmitted to a remote facsimile machine. 
20 According to one embodiment, the delivery of doses of multiple patients is monitored. 

In this embodiment, a preferred method comprises retrieving dosage data, including times and 
amounts of medication prescribed for a plurality of patients, retrieving patient data, including 
times and amounts of medication delivered for the plurality of patients, determining 
evaluation data by analyzing the retrieved dosing and patient data for the plurality of patients 
25 to determine overall compliance of the delivered medication to the prescribed medications, 
and displaying the evaluation data. 

Another embodiment includes a memory device storing computer readable instructions 
for aiding a computer to implement a method for monitoring patient dosages such as that 
described above. 

30 Yet another embodiment provides a system for monitoring patient dosages including a 

computer implementing a method such as that described above. 

MEDICINE ADMINISTRATION MANAGEMENT SYSTEM 
Embodiments of the invention may be implemented on special purpose electronic or 
data processing hardware, software applications running on general purpose hardware, or a 
35 combination of both. For example, an embodiment may be implemented in a dose 

administration system that includes a computer system running one or more application 
programs that provide functions for manipulating dosing and patient data, having access 
through appropriate communications links to remote devices. 

FIG. 1 shows an illustrative system incorporating the present invention, including 
personal computer 101 ninning application software. Computer 101 has access to both dosage 
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data and patient data. For example, as shown in FIG. 1, the computer 101 includes a 
communications link 105 that couples computer 101 to dosage dispensing device 1 10. The 
dosage dispensing device 110 may be, for example, the portable medication administration 
device described in U.S. Patent Application Serial No. 08/ 867,010 entitled Liquid Medication 
5 Dispenser Apparatus, filed on June 2, 1 997 and naming as inventors Debra L. McEnroe, 
Robert A. Britts, Phillippe Pouletty and Ralph Levy, the entire contents of which are hereby 
incorporated by reference as if fully set forth herein. Dosage dispensing device 1 10 may be 
used to dispense, for example, an analgesic drug, opiate agonist or antagonist drug, or a 
immunosuppressive drug, such azathioprine, Tacrolimus, Sirolimus, mycophenolate, mofetil, 

1 0 and their chemical derivatives,. 

A portable medication administration device is a device which may be transported with 
the patient outside a medical facility such as a hospital or doctor's office, and which delivers 
multiple doses to the patient without immediate supervision by a registered medical clinician. 
Such dispensers are typically used by, for example, physicians and pharmacists, to input 

15 dosage data. 

Communications link 105 enables the dosage data to be recorded at locations remote 
from the monitoring system, such as at medical facilities where medications are prescribed. 

In the illustrated monitoring system, the computer 101 retrieves information relating to 
the patient data from data stored on diskette 120 or in a mass storage device, such as the 
20 computer's hard disk drive 122. This data typically includes a record of doses delivered to the 
patient and is typically created by the patient or a caretaker. As with the dosage information, 
this information may be input at remote locations, such as at a patient's home or a location 
where the medication is administered. 

Of course, dosage and patient data may also be provided by alternative methods. For 
25 example, the data may be input directly by a user through the computer keyboard 1 02. The 
computer 101 can save input and retrieve information by downloading to the diskette 120 or 
hard drive 122, or if appropriate, may initiate to medication dispenser and monitor 109 a 
communications link 107. Communications link 107 may use electrical, electromagnetic, 
optical signals, or other signals that may cany digital data. These signals are exemplary forms 
30 of carrier waves transporting information. 

Application software running on the computer 101 processes the dosage and patient 
data to determine monitoring information for patients. The monitoring information is provided 
to a user in the format of, for example, patient summary reports and graphs 124, event 
calendars 126, and summaries of groups of patients 128. The monitoring information can also 
35 be provided in hard copy via printer 1 30 or fax 1 32 through appropriate communication links. 

Computer 1 10 may transmit data to dosage dispensing device 1 10 via communications 
link 105. The data may include times and quantities to administer a drug to a patient, and a 
value representing a lockout period. Dosage dispensing device 1 10 delivers a drug in 
accordance with the received data. 
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In one embodiment, computer 1 01 is a personal computer having an Intel or AMD- 
type processor and running the Microsoft® Windows 95 or Windows NT operating system, 
and equipped with volatile memory such as RAM and non-volatile memory such as a hard 
disk. A display device such as a CRT also forms part of computer 1 01. 
5 MONITORING ADMINISTRATION OF MEDICINE TO A PATIENT 

FIG. 2 is a diagram of a method of monitoring the administration of medicine to a 
patient In one embodiment, the method of FIG. 2 is implemented in one or more application 
programs that are executed by computer 101 . 

At block 202, a computer such as personal computer 101 of the system of FIG. 1, 
1 0 begins execution of the application software. As shown in block 2 1 0, computer 1 0 1 retrieves 
dosage and patient data for a patient from stored data. As indicated by block 212, the steps of 
block 210 may involve retrieving previously stored data files from a mass storage device such 
as disk drive 122. 

Alternatively, computer 101 may establish an appropriate communications link, such 

15 as a modem or ISDN line, to retrieve data from a remote device, such as the portable 

medication administration device illustrated in FIG. 1 and described in the above-referenced 
U.S. Patent Application Serial No. 867,010, filed June 2, 1997 and entitled Liquid Medication 
Dispenser Apparatus, previously incorporated by reference. In this alternative case, as 
indicated in block 214, the dispensing device 1 10 is connected to the computer 101 and 

20 prepared for communication with the computer. 

At block 220, dosage and medicine administration information for a patient is 
reviewed. Specifically, updated patient data is processed by the application software and 
displayed as requested by a user. The application software may be adapted to manipulate the 
dosage and patient information as needed. For example, the software may monitor the 

25 dosages delivered to patients by recording times and amounts of doses taken by a specified 
patient, as indicated by the retrieved patent data. With access also to the dosage information 
for that patient, the software may determine, for example, compliance of a patient's delivered 
doses with the prescribed doses, either for specified dose times or over a period of time. 

Block 220 may involve generating one or more reports, as shown by block 224. For 

30 example, the method may be used to generate calendars showing the dosing events indicating, 
for example, the times of prescribed doses for specific patients and whether the patient 
complied with those doses. The method may also generate summary reports and graphs 
reflecting the progress of treatment for specific patients, incorporating, for example, test 
results. Additionally, the method may generate summary reports for groups of patients, such 

35 as groups of patients taking the same medication or groups of patients of a specific physician. 

The analyzed results may be stored and may be provided to a user. For example, the 
method may display the results on a computer monitor. Alternatively, as indicated in block 
222, the computer 101 may provide hard copies of reports by printing to a printer or 
transmitting the results to a remote facsimile machine. 
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Optionally, as shown by block 230, the data is saved after it is reviewed. As indicated 
by block 232, the data is saved to the mass storage device from which it was retrieved. 
Alternatively, as indicated in block 234, computer 101 may clear the memory of an external 
device from which the data was received and save a new copy of the data, or modify 
5 appropriate parameters of the external device. A pre-defined format is used. For example, data 
read from the device 1 10 may be saved as one or more comma-delimited ASCII files on disk 
122. Use of such a format enables the data to be human-readable, and allows the data to be 
imported into commercial, off-the-shelf application programs such as spreadsheets or word 
processors. 

10 In one embodiment, the data is saved with a validation code that is computed at the 

time the file is saved. Whenever a saved data file is reopened, the code will be used to test and 
guarantee the validity of the data against corruption of the data or intentional modification by 
any means outside of the program. In a preferred embodiment, a relational database system 
such as the Microsoft Access Jet Engine is used for storing and retrieving all data. 

15 At block 240, the operational sequence is complete. 

RETREIVING PATIENT DATA - INCLUDING DOSES AND TIME DELIVERED 
FIG. 3 illustrates an embodiment of a method of retrieving data. FIG. 3 illlustrates 
substeps involved in block 210 of FIG. 2 in greater detail. 

At block 304, the computer system receives a request to read device data. For example, 

20 block 304 may involve receiving a request to read "current patient data" that is stored in the 
dispensing device 1 10. The request may be generated in response to, for example, a user 
selecting a program menu option in a graphical user interface ("GUI"). 

As shown by block 320, the system determines whether dosage or patient data for the 
requested patient already exists and has not been saved since a prior retrieval operation. If 

25 patient data for the requested patient already exists in memory and has not been saved during a 
prior retrieval, then in block 324, the system displays a prompt message to the user. The 
prompt message enables the user to select (1) canceling the request to retrieve patient data 
from the device, or (2) saving the prior data before continuing with the process of retrieving 
current patient data from the dosage-dispensing device. If the user chooses to cancel the 

30 request to retrieve the current patient data, then execution ends. If the user chooses to save the 
already existing data, then control flows to block 328, where the data is saved in a user 
specified file. Block 328 may involve displaying a dialog box or prompt to the user that 
requests the user to enter a file name or pathname. Control then flows to block 330. 

At block 330, the current patient data is retrieved from the dosage-dispensing device 

35 and stored in a temporary buffer. The temporary buffer may be, for example, a temporary disk 
file or a buffer area in memory. At block 334, the data is checked to determine whether any 
transmission or data errors occurred during transmission from the dosage-dispensing device. 
For example, an 8-bit checksum algorithm can be applied to data received from a dispensing 
device 1 10 to detect errors. Such checksums are conventionally included by the dispensing 

40 device 1 10 in data that it transmits to computer 101. If any errors are detected, then at block 
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338, a message to the user is displayed, informing the user that errors exist in the data, and 
execution ends. If no transmission errors are detected, then control flows to block 340. 

As indicated by block 340, the disk or other storage device is checked to determine 
whether any prior patient data for the patient has been retrieved and stored. If previous data 
5 has been retrieved from the device, then control flows to block 344. In this case, as shown by 
block 344, data for the patient is updated by merging the current patient data with the prior 
data. The merged data is stored in memory. A message is displayed informing the user that the 
merge has occurred 

As shown by block 348, the current data is stored. Alternatively, the merged data is 

10 stored, if merged data was created at block 344. The user interface is updated to reflect the 
addition of current patient data. 

At block 360, a device retrieval dialogue is displayed, which is data about the just 
retrieved patient data. Such data can include patient name, the drug(s), prescribed doses per 
day, and the administration times. 

15 TRANSMITTING DOSAGE DATA TO DOSAGE DISPENSING DEVICE 

In one embodiment, computer 101 transmits dosage data to dosage dispensing device 
1 10. The dosage data is used by dosage dispensing device 1 10 to control the dispensing of 
medicine. The dosage data may represent medicine to deliver, administration times, quantities, 
and a lockout period. A lockout period is a period of time that must elapse after dispensing a 

20 dose before another dose may be administered or delivered to the patient The dosage data 
may specify medicines that include, for example, an analgesic drug, opiate agonist or 
antagonist drug, or a immunosuppressive drug. An example of a dosage dispensing device that 
receives data specifying administration times and quantities and a lock out period, and then 
which operates in accordance to such data, is the portable medication administration device, 

25 described in U.S. Patent Application Serial No. 867,010, filed June 2, 1997 and entided Liquid 
Medication Dispenser Apparatus, previously incorporated by reference. 

The ability to transmit data to a dosage device that dispenses medicine accordingly 
provides significant advantages. The amounts of medicine that are actually dispensed to the 
patient may be controlled, and premature administration of doses may be prevented. 

30 FIG. 4 is a diagram of a method of collecting dosage data from a user, such as a 

physician or other clinician, and transmitting the dosage data to a dosage dispensing device. 

As shown by block 410, a request is received from a user to enter dosage data. The 
request may be generated in response to a user selecting a program menu option in a GUI. As 
indicated by block 420, current dosage data for the patient is retrieved from stored data. At 

35 block 430, a data entry screen or dialog box is displayed, showing the current dosage data as 
the default data. 

As indicated by block 440, dosage data is received from the user. The dosage data 
includes prescribed administration times and quantities and a lockout period. For example, the 
user enters the following information: 
40 Number of Doses 
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Quantity and Unit 
Times for Each Dose 
Lock-out Period 

As shown by block 450, the dosage data is transmitted to a dosage dispensing device, 
5 such as device 1 10 shown in FIG. 1. At block 460, the dosage data is stored in a mass storage 
device of a computer system, for example, hard disk 122 of computer 101. 

In an embodiment of the present invention, the application software may be adapted to 
analyze additional data. This may include device monitoring data, such as the time a drug 
bottle was changed, temperature monitoring data, battery status, times data was downloaded 
10 from a dosage dispensing device, data identifying the bottle of the drug, such as data read 
from a bar code. Patient data may include test results measured at specified times to measure 
the effect of the administered dosages, or information on multiple drugs dispensed by a dosage 
dispensing device. Dosage data may include proper dosages of specified medications, as well 
as an indication of possible side effects and information regarding whether the dosage should 
15 be altered should those side effects be detected. In such a case, the application software may 
be adapted to provide an analysis of the effectiveness of the administered dosage. 
EXEMPLARY GENERATION OF COMPLIANCE INFORMATION 
To help determine whether a patient is administering a drug properly, compliance 
information is generated and displayed to a user. The system may display such compliance 
20 information in many forms. For example, the system may display a calendar that indicates 

whether particular doses were delivered properly. As another example, the system may display 
one or more compliance indexes, such as the percent of daily doses delivered or the percent of 
doses delivered on time. The compliance information may be generated by, for example, a 
computer system executing a computer program according to the source code set forth in the 
25 Appendix. 

CALENDAR SHOWING PATIENT COMPLIANCE 

FIG. 5A is a block diagram depicting a calendar 500. In the preferred embodiment, one 
or more calendars 500 are displayed to graphically convey user compliance information on a 
computer display, or other output device such as a printer. 

30 Calendar 500 of FIG. 5 A comprises a grid 502, which includes one or more grid 

elements 520. Each grid element 520 represents a particular day of the month, and may 
contain one or more icons 521 for each dose due on the particular day. The calendar 500 may 
also include a legend 523 that identifies each icon 521 with a descriptive label. Thus, each 
calendar 500 provides a snapshot display to the user of the dosages due for a particular patient 

35 throughout a particular month. 

FIG. 5B shows grid element 520 in greater detail. Grid element 520 of FIG. 5B 
pertains to the second day of a particular month, as indicated by the numeric day value 540. 
Grid element 520 includes one or more icons 521 selected from among a new dosage icon 
522, wrong time icon 524, on-time icon 526, and missed dose icon 528. The particular icons 
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521 that appear in a particular grid element 520 depend upon the content of the data 
previously entered for the patient by the user. 

New dosage icon 522 is displayed so that it reflects the day the dosage was changed, as 
specified by, for example, dosing data retrieved from a dosage dispensing device 1 10. The 
5 new dose size may be displayed within new dosage icon 522. For example, new dosage icon 

522 may include text showing that the dosage is u 250 mg". 

Preferably, wrong time icon 524, and missed dose icon 528 each are displayed with 
different patterns that indicate whether a dose was delivered properly. For example, wrong 
time icon 524 is a square shaped icon that is displayed in a first color, such as brown or tan, 
10 and is displayed for a dose that was delivered at the wrong time. A dose is delivered at the 
wrong time if it was delivered to the patient at a time outside the scheduled administration 
time. 

Similarly, on-time icon 526 may be a green colored icon, and is displayed for a dose 
that was delivered on time. A dose is delivered on time if it was delivered to the patient within 
1 5 the scheduled administration time. 

Missed dose icon 528 is a circular icon displayed, for example, in red, and has a thick 
border. The missed dose icon 528 indicates that a patient failed to take a scheduled dose. 

The colors and shapes of the icons 521 disclosed herein are not required and are not 
important. What is important is that a wrong time dose, on time dose, and missed dose each 
20 are represented by a unique icon or symbol. In addition, another row of icons can be displayed 
in each grid element to indicate the number of doses due, each icon representing a scheduled 
dose for a day. 

In one embodiment, each of the grid elements in grid 520 are graphical user controls. 
A user may cause the computer to display more information about a particular day reflected in 

25 grid 502 by manipulating the day's respective grid element. For example, a user, using mouse 
103 as an input device, moves a mouse cursor of calendar 500 onto the day's respective grid 
element and then clicks the mouse. In response, computer 101 displays a graphical time line 
with icons positioned to reflect when the drug was delivered. 

FIG. 5C depicts an exemplary graphical time line. Time line 550 is a graphical image 

30 having a horizontal length that reflects one 24-hour day. One or more icons 562 each represent 
a dose delivered for a particular day. Each of the icons 562 are displayed along the horizontal 
axis 564 of time line 550 so that their respective positions along the horizontal axis of time 
line 550 reflects when they were delivered. One or more hour labels 566 indicate the time at 
which a dose was delivered. For example, icon 562 represents a dose that was delivered at 

35 approximately 8:00 a.m., as indicated by hour label 568. 

In one embodiment, icons 562 may include icons for missed doses. Such icons may be 
displayed using a different pattern than those used to represent doses delivered on time. In 
addition, icons representing doses delivered at the wrong time can be displayed using a third 
pattern. 
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COMPLIANCE INDEXES 

Compliance information can also be provided in the form of compliance indexes. A 
compliance index is a set of one or more values that reflects the degree to which the actual 
delivery of a drug complies with the prescribed administration. A variety of compliance 
5 indexes may used. 

For example, the compliance indexes may include a dosage-on-time index. The 
dosage-on-time index reflects the percent of doses that were delivered to the patient on time in 
a given period. For example, assume that a drug is prescribed to be administered three times a 
day, at 7:00 a.m., 3:00 p.m., and 1 1 :00 p.m., plus or minus an hour. If for a given day the drug 
10 is in fact delivered twice at 8:00 a.m. and 6:00 p.m., then the dosage-on-time index for the day 
is thirty-three percent (33%). 

A dose-per-day index reflects the percentage of prescribed doses that were at least 
delivered in a given period. In the previous example, the dose-per-index would be sixty-six 
percent (66%) because two out of three doses were delivered in the day. 
1 5 A unit-per-day-index reflects what portion of the amount of a drug prescribed for a day 

was delivered to the patient For example, 2000 mg may be prescribed, but 2200 mg may be 
delivered to the patient. Thus, the unit-per-day-index would be 1 10%. 

The user may specify the period covered by a compliance index in a variety of ways. 
For example, a graphical user control list box may provide selectable list box items which 
20 each represent a period for which to generate a compliance index. One list box item specifies 
the last week, another the last two weeks, and another the previous month. In addition, the 
graphical user control text boxes can be configured to accept the beginning and end dates of a 
period. 

Also, various techniques may be used to display compliance indexes to the user. Each 
25 index can be displayed as a numeral, or a graphic, such as a horizontal bar. The length of the 
bar would represent 100 percent, and a position of an indicator along the length would indicate 
a percent. 

One or more compliance indexes may be presented in the form of a weekly dosing 
graph, as shown in FIG. 5C, or in other graph forms, such as a line, area, and histogram graph. 
30 In addition, a GUI may present a graphical user control through which a user may select the 
form of the graph for displaying compliance indexes. For example, a GUI may display a 
graphical user control list box containing list box items for each graph form. By selecting one 
of the list box items, a user specifies a graph form for displaying a compliance index. 

Fig. 6 shows a score histogram graph according to an embodiment of the present 
35 invention. Score histogram graph 600 displays patient dosing scores in the form of a graph of 
"Time Span" versus "Score." The time span is selectable for a time range specified by the 
user. The score value represents a compliance index over, for example, the last 7, 14, 21, or 28 
days, or a time span specified by the user. 

Score histogram graph 600 contains one or more graphical bars, such as graphical bar 
40 610. Each graphical bar is used to reflect a dosage score for a time period within the time span, 
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such as a day. To measure the graphical bars, score histogram graph 600 includes graphical 
score scale 604. The height of the graphical bars together with graphical score scale 604 
indicate a dosage score for a particular time period. Graphical bar 610 reflects a score of 66%. 
OTHER REPORTS 
5 Other reports can be generated based on the foregoing information. 

In particular, a Patient Dosing Report is generated based on data retrieved from the 
dispenser device 1 10. The data is displayed in a scrollable tabular grid. Displayed values 
include all medication events, dates, times, and dose sizes that are retrieved from the 
dispenser. Other non-medication events that are reported from the dispenser device to the 
10 computer 101 can be displayed at the option of the user. For example, when a user replaces a 
bottle in the dispenser, the dispenser device 1 10 reports a "bottle replaced" event to the 
computer 101. Such events can appear in the Patient Dosing Report. 

As another example, a Patient Summary Report is generated. The report includes a 
header containing complete patient information such as Name, ID, Monitoring Dates, Drug, 
15 Brand, etc. 

A Patient Summary Report, based on the merged data created in block 344 of FIG. 3, 
can be generated. The report summarizes data downloaded from multiple devices for the same 
patient. 

A Summary of All Patients report presents a summary of all patients in grid form. The 
20 grid includes Name, ID, and Score for each patient. The grid may be sorted by any column. 
The Score value may be selected based on Doses Per Day or Time Of Day. 

Preferably, the system provides a Print Preview function whereby the user can view 
any pages on the screen before they are printed. 
PROGRAM STRUCTURE 
25 Embodiments of the methods described further below may be implemented, for 

example, in one or more computer programs developed using Microsoft Visual Basic®. 
Preferably, the programs provide a multi-document interface whereby a user may view 
multiple documents simultaneously within the program. For example, the calendar dialog and 
medication event data dialogs described herein may be viewed at the same time. 
30 In one embodiment, the program functions and method steps described above are 

organized in an application program using one or more pull-down menus, each of which has 
one or more menu options. Table 1 presents a hierarchy of menu options in one embodiment 
of such a program. 

TABLE 1 -- MENU OPTIONS 
35 FILE 

New 
Open 
Save ... 
Save As ... 
40 Print Setup ... 
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Print Preview ... 
Print... 
Exit ... 
DEVICE 

Retrieve Dispenser Data 
Program Dispenser 

VIEW 

Dosing Data 
Dosing Calendar 
Reports & Graphs ... 

HELP 

About 

The application program may also provide confirmation dialogs that prompt the user to 
verify various functions, such as dosing, as they are performed and where appropriate. 

In the foregoing specification, the invention has been described with reference to 
specific embodiments thereof. It will, however, be evident that various modifications and 
changes may be made thereto without departing from the broader spirit and scope of the 
invention. The specification and drawings are, accordingly, to be regarded in an illustrative 
rather than a restrictive sense. 
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Attribute VB_Name « -modGenefar 
Option Explicit 



•Declare DLL calls 

V ByVi ' ,POe, • U,, "** ^ "P^t-n-dSmnB As St*,, By V„ „Siz, Z Long. 8yVs> f SSg, As 



*Se? up some temporary Duffers targeting somgs from CLL calls 
Pubte Const glBufSI«1024 - 1024 « r * re o/^^r^s.^ 

Public gsTempBuf As Suing Ipt OL/tfer /or s^gs fce/med ar program s»/tf 



vX C 4r t ^ toraTabSeteCtBdA5mt ^ r <™* of*. ,ab M »« /esr se/ecred b, user, gee, oac* ro ,r „e,r .me H is 

SSS,?^ Slnn9 »/ 

Pt^S 9 Si!n, S Y c 31 ^ Stn " 9 -no/dsme users coace tor tteotop/eyetf careromw ^cfe/ocs andreoor« 

SSKS^ «m *** me caer, cno.ce for*, dispia'yed ume formatter^ aZ7plZ 



Public gsCustomlbfTxCenter As String 
Pubic gsCustomLblDrug As String 
Public gsCustomUIOrgan As String 
Pubfic gsLabelGridCoJumnCustoml As String 
Pubtte gsUbelGridCotumnCustorn2 As String 
Public gsUb«IGridColumnCustem3 As String 



4*2 ^ZTZZf "1°^ Vindicates me verston of care structure mttun me device: 

v^^rlTll* 1^ to *° W/3/on C/ me * os ' w/hvar» because me nosf software 
^?J' J*'??l "I th mearvn 9 tnat th0 *Wre ofthe dare in the device has changed. 

^««l^fil7^!l W ?!S a ' ! " y orc * MS " oca "* te "*« device 

STE^K? Off»ngs to accommodate n«v features. The purpose of this value 
*5e5Z. ' * wce ™ rf * "0* so/ftvere is be«g usetf on 

• device programmed with another version. 



-■*^^ ^^^^as ssac 3^_^^_^_^^— ^_ 

p uMc Const gsREVOATA_STRUCTURE = "Or 

3?*" '? 4 * **** d9ViC9 contsJnin 9 ,6 cneracre/5 eec/i. /n tte original 

-rlTil£?*}' ^ "** intenaed f ° Contain 4 **** 9t9 of information. 

The length of each data type is as follows 

PubDc Const gilEN_REV_DATA STRUCTURE « 2 

PubSc Const giLEN^PATJENT NAME ■ 26 

Pubic Const pit EN 10 • 11 ~ 

PuMc Const gilEN~DRUG > 2 

PubBc Const giUElf TX CENTER - ia 

Pubfic Const gO.EN_ORGAN • 2 

Publte sbPrtsntOrtsNotS^ed As Boolssn ^s one. m. «u M memoo- h»s l» e „ „«a fl»om ««eej 

PubBc gfTempCreitinine As Single 
Pubfc gsTempCustomlntb As String 

Public gsActiveFonnName As String 
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PuWc giCurrantTjp As Intto.r most recant op nvmoer that was s/xown 
Public gsVNfcbStarttngAddress At string Vrf aflflntss and any assoca/go passwwqJtoriveo stfe 

Public Function ComputelniSectionChecksum(ByVal sFileSpec As Siring, ByVal sSection As 

'Read each 6fi* tn the section name of en INI file mat was passed here. 
'Compute a unique vaiue and pass tack to caller 
On Error GoTo 0 rgh temp 

Dim tCheckSumTaOy As Long, r As Integer, I As Long, i As Integer, iKey As Integer 
Dim sUne As String 

'Get me names of an ct S»e keys in this section. 

'A nut key field in stove iir.e ioscs aM Keys in mat section 

Dim iStrStee As Integer. sTempBuf As String. IBufSize As integer 

Dim «KeyList{2000) As String 'make room for mis many key names ir. this section 

sTempBuf ■ SpaceSO 5384) 
IBufSize = 16364 

I • GetPrivateProfikStringfsSection, ByVal 04. - sTempBuf. IBufSize. sFBeSpec) 

r - PirsaDeEmStnhg(LettS(sTempBuf. 0. ChrS<0). sKeyUstQ) pur the key names in a list 

For iKey « 1 To r 

sUne » GetlNISatting(sFaeSpec. sSection. sKeylistflKey). -) 
. Fori«1ToLen<sUne) 

IChackSumTaly « ICheckSumTally ♦ (Asc(MidS(aLine > i, 1)) " IKey) 
. Next I 
Next iKey 

IChacfcSumTaHy = ICheckSumTaily Mod 53687091 2 a 29 bit number 
Compute InfSectlonChecksum » ICheckSumTally pass result Pack to caller 
End Function 




Public Sub EventDelete(DataStruct As DeviceDataStruct, ByVal flndex As Integer) 

'Remove an evant from the data structure. The index to the position is 
'passed here. 

Dim I As Integer 

Vis not a veOd Index 

If (Index < 1 Orllndex > OataStrucLIEventOata(0) Then Exit Sub 




For I « flndex To OataStnjcLIEventOata(0) move all events up one 

DataStructbyteEventTypefl) « DataSt/uct.byteEventType(i ♦ t) 
DataStructdEventDatefl) « DataStruct.dEventDate(i ♦ 1) 
DataStrucUEventData(l) » Data Struct JEventData(l ♦ 1) 



OataStructlEventOata(0) » DataStruct.iEventOata(0) - 1 'decnymenf event count 
gbPatlentOataNotSaved • True set Hag to indicate that the file has changed but not yet been saved 

End Sub 
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Public Sub eventlnsert(DataStruct As DeviceDataStruct, ByVal ilndex As Integer, ByVal dDate As Double) 
Insert e new event into the data structure at the index location passed hare. It tha index «0 
Tim «f prooably indicates that a previous ftmenen could not find where to insert the data 
'in the stntctun. in (his case, the event rrust be inserted at the beginning ot the end of the 
'shvdun depending on the data. 



Dim i As Integer 



If ilndex • 0 Then 'date was not found 

. if dDate <= OataStruct.dEventDate(l) Then 

ilndex * 1 
Else 

i Index « DataStructJEventData(O) insert ai last point 

I End If 

I End If 



. if ilndex Then "there are events in the structure 

I For • ■ DataStructiEventData(O) To ilndex Step -1 'move aO events ccwn to make room for new one 

OataStrucLbyteEventTypeO ♦ 1) • OataStruet.byteEventTjrpe(i) 
DataStruetdEventDatefl ♦ 1) « OataStruct.dEventOate(i) 
DataStructiEventDatatf ♦ 1 ) « DaUStnjctJEventOata(l) 
DataStructsUserOatalC ♦ 1) = DataStnjctsUserOatal(i) 
DataSUucLsUserOata2(I ♦ 1) = Data Struct aUserOata2(i) 
DataStruct.sUserOata30 ♦ 1) ■ OataStructaUserOata3(i) 

EJee 

Ilndex ■ ilndex ♦ l 
I End If 



E 



"Now insert the new event 

DataStrucUEventOata(O) = DataStrucLiEventData(0) ♦ 1 'increment event count 
DataStructbyteEventTypefllndex) ■ giEVENT USER DEFINED 
DataStractdEventDatefllndex) • dDate 

DataStructsUserOatal (Hndex) o gJTempCya 'put change in structure 

DataStnjcL»UserOata2{nndex) - gfTempCreatlnine 'put change in structure 

DataStiuetsUserData3<ilndex) « gsTemp Custom Info 'put change in structure 

If Dndex ■ 1 Then there were no previous events until this one 

DataStructlEventOatafllndex) • 0 
Else 

^DataStnjctJEventOata(«nd«x) « Data Struct JEventDatafllndex - 1) 
gbPatientDataNotSaved « True set flag to indicate that the file has changed but not yet been saved 
End Sub 



Public Function FindPrescibedDoseSizeForSpecit1cDay(DataStruct As DeviceDataStruct, ByVal IDate As Long) 

Tind the prescribed dose for the day that is passed here. 

This is accomplished by looking for the most recent dose change 

'event that occurred on or prior to this date. 

Dim I As Integer, Undex As Integer 
Undex ■ FindClosestOatelnArray(DataStruct IDate) 
^ If Ilndex ■ 0 Then 'all events are occurring after the date requested 
I For I » 1 To DataStruct JEventDeta(0) look through whole array if necessary 

□ If DeteStructbyttEventType(i) " gi EVENT OOSE CHANGED Then 
FindPrescibedOoseSizeForSpeci8cOay * I 'DataStnjct.iEventOatatO 
ExttFor 
End If 



Else 'an event date was found 
for I » Undex To 1 Step -t 
K0ataSliuctbyteEventType(i)»giEVENT.0OS£ CHANGED Then 
s 
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t 



F^P^sdb.dOceSizerorSpcaflcOay - i 'DataZOvcvEventDaiatO 



End If 



Next I 
End If 



End Function 



Public Function CalcOayDoseScore^OnTimeCDataStruct As Device DataStruct, ByVal IStartinoDat* a» i 
Compufer m« cfcawg score for mt day p a » e d /rare wningoate As Long) A* 

TA* »cor fl r«* to see r/ the Ocsen taken was ^ * # pr-scwed *ne rang*. 
Pass Ma «:or« oac* fo the catlsr as nea/e» :v«aa pe/ce.-rr 
Vnttjc * aie /ndexiV» tfj, ray w* ffr » cs.«*pi/raoo/» j* to sra/r. 
V snould already oe sat to the first event that occurred on that Cay 



01m I As Long. I As Integer. iTotalOoses As Integer 
Dim llndex As Integer, r As Integer 



ttSSZ f^^^tetnArniyCOataStruct. IStartingDate) returns 0 it t/ate ,s not found 
u tfndex Then an event was found 
Do look at a* past events for the past iSccraDays 

If lnt(DataStnjctdEventOate0lndex)) • IStartlngOote Then 
dart sW m range, ok to continue 

, ^^^^ e6 J enn ' ype(l,ftdeX) " ^ E VENT_DOS E_TA KE N Then this is a medication 
.Jl* "J 1 ™ '* Mtr " n Ma daity preserved range 

If r ^n^^n reS ^^ CRan9C(DataStmct ' ,Index > » *™< *™ 

if r Then ITotalDoses = iTotalOoses ♦ 1 

End If 

llndex ■ (Index ♦ 1 
Else 

ExBDo 
End If 



CalcDayOoseScoreJDnTirne • 100 • ITotaiDoses / Data Struct J Dose sPerDay 
- End If 

End Function 



PU cL°plT^ As DeviceDataStruct, ByVa, IStartingDate As Long) A 

^rTsco^ — — - - 

Z™""*' m 0"J n my compuiacfon is to start 

7/ should already be set to the first event that occurred on that day. 

Own iTotalOoses As Integer. (Index As Integer 

l^-T ^^ M,<Date, nAriBy(DataStruct, IStartingDate) 

— IfandexThen an event was found on thts date 

— Do look at aB dosing events tor this day 

~ ."MDataStructdEventDateOlndex)) « IStartingOate Then 
data stBl in range, ok to consnue 
this is a medication 

" ?ino a e S x^n^x C !7 ntTyPe(1,ndeX) * 0 j ^NT-DOSE^TAKEN Then rTotalOoses * ITotalOoses ♦ 1 

— Else 

ExSDo 

— End If 

— Loop 

CateOayDoseScore.MDoses » 100 ' ITotalOoses / (DataStruct IDosesPerOay) 
. End If 
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End Function 




a 



Public Function CalcDosesSumTakenOnSpecificDayiDataStruct As DeviceDataStruct, ByVal IStartinaDat* * r , 
-Computer the dcsmg total number of doses taken on a sceanc date ""9uate AS I 

•Ncta. tots calculation does not take into consideration whether sr not the dose 
was taken within toe presented erne. Tna is ait doses fsr a particular dav 
'Pass the count pack to the catter. 

Dim rTbdayOoseCount As Integer, ilndex As Integer 

ilndex = FlndFirstMatchingOatelnArray(DataSlruct, iStartlngOate) 
If ilndex Then 'an event was found on this date 

— Oo look at as dosing events for ths dav 

— If In^tataSlnjctdEventOatetflndex)) « IStartlngOate Then 

'dare sail m range, ok to continue 
this is e meOcatton 

If DatoStroctbyteEventTypefllndex) « gi EVENT DOS E_TAKEN Then iTodayDoseCount « iTodayDoseCount ♦ 1 
ilndex • [Index ♦ 1 'goto next higher event in amtv 
extt it at end of array tore venzs error) 



If U8ourtd(DataStruct.dEventDateO) * Undex Then Exit Do 
'exit if no data tn array 

If Undex > lnt(DataStrvctJEventOata(0)) Then Exit Do 




CalcDosesSumTakenQnSpecificDay « iTodayDoseCount 

mm End If 

End Function 



Public Sub EraseDatalnMemory(DataStajct As DeviceDataStruct) 
Dim I As Integer 

'deer out any data that may be m memorv and initialize the arrays 

DataStruetsPatienilastName • - 

DetsStnidaPatlentFirstName » - 

DataStnictsPatlenUD • - 

DataStnjcLsOnjg n - 

OataStruct.sOrgan = " 

DataStruct jTxCenter » - 

DataStrucUSenalNumber - - 

DataStructsFinnwareVer = - 

DataStrudsDoseStee * " 

DataStructsPatiintOataFBeName « - 

For I » 0 To gMaxDoseTtmes 
^OataStructdPrescribedDoseTirneO) » -1 

OataStrucUDosesPerDay ■ 0 
OataStrucLsDoseRcsolution « - 
Data Struct.sMedRematr«ng « - 

Erase Oa ta StructsS core Data 
Erase Data StrucUE vent Data 
Erase DataStruct.dEventOate 

Erase OataStruct^yteEvenlType erases ait elements of a fixed array 

Erase DataStructsUserOatal 
Erase DataStrucUUserData2 
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Erase OataStrucUUserDataO 

Data Struct JDevleelnUOete ■ 0 
DaUStnjcJ.»8atteryChingoTtmer « - 
Oata5truct.sOoseU>ckoutHours - ~ 

DataStructbErrorFatal » False 
DataStructbEnorNonFatal » False 
OataStfuctbEirorOoseSize « False 
DataStrucLbErrorMedRemaining * False 
D» ta Stiuct.b Ettq rMemory F uil = False 
OataStnictbErrorsExist « False 
DataStmctbErrurBrownOut « False 
DatsStructdLastDownJoadDate ■ 0 

gbPatientDataNotSaved » False 

End Sub 



Public Sub CreateTxtSummaryFileO 
'Hi/s /outfne creare* a femp text file in the 'fax- sucdtreaory 
'This vnU allow tr>9 information to be taxed as a text tocumern. 

Dim I As Integer, r As Integer, sFOeSpec As String. lErrorCode As Long 

Dim sLolName As String, sUUD As String. sUITxCenter As String, sLblOrug As String, sLWOrgan As Suing 

'Get rid of the previous temporary Me. 
'sFUeSpac « App.Path ♦ -VexesMemp.txf 

sFBeSpec « AppJ>ath ♦ "VaxesV" ♦ PAT.DATA.sPatientUstName ♦ \ - ♦ PAT_DATA.sPatientFirstName ♦ • • ♦ PATJ)ATA.sPatientlD ♦ \ 
txt" ~ 
r - FBeExWsfsFOeSpec. lErrorCode) 
If r Then WisFiia Spec 

sLblName ■ gsCustomLbiPatientLastMame 
sLbllD » gsCustofntbJPstientlD 
stblTxCcnter « gsCustomlbfTxCemer 
slbtOrug « gsCustomLblOrug 
sUriOrgan ■ gsCustomlbtOrgan 

Open sFDeSpec For Output Shared Aa #1 

Print #1, sibJName ♦ t • ♦ PAT_OATA.aPatlentLastName ♦ " " ♦ PAT DATA.sPatlentFirstName 

Print #1 , stbllD ♦ t • ♦ PAT_OATA,sPallentID 

Print #1, sLNTxCenter ♦ * • ♦ PAT DATA.sTx Center 

Print #1, slblOrug ♦ * • ♦ PAT_OATA.sOrug 

Print »1, sLblOrgan ♦ 1 ' ♦ PAT OATA.sOrgan 

PrtnUI, 

Print #1, Device Serial Number. • ♦ PAT DATA.sSerlalNumber 
Print #1, "Firmware Version: " ♦ PAT OATA.sFlrmwareVer 

Print #1. last Download Date: " ♦ FormatS(PAT - OATA.dUstOownloadOate, gsOateDisplayFormat) 



"rgfc ensure thet the compiate file is printed 



End Sub 
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Function FiteExists(ByVai sPath As String, lErrorCode As Long) As Integer 



* Checx tor bjozi trice of a tile by attempting en OP&V. 
Return true f- f ) It exists eise return False (0) or error condition 
Note met since this function tries to open a Me. an error could 
return to caller it fBe is there but in use by another application. 



OtmX As Integer 

X - Free File 

On Error Resume Next 

Open sPeth For Input As X 

. If Err »0 Then 

FDeExisIs » True 

lErrorCode • 0 'ce»r error coce 

Else 

FileExists o False set Rag for error 
lErrorCode ■ Err 'pass error back to caller 

End If 

End Function 



Public Function GetINISetting(sFiIeSpec As String, sSection As String, sKeyField As String, sDefault As String 
Dim IStrSlze As Integer, sTempBuf As String, iBufSlze As Integer 
sTempBuf * Space$<1024) 
— t » 1024 



E 



IStrSize « GetPrrvateProfaeSbing(sSectlon, sKevRetd, sOefault, sTempBuf. IBufSlze. sFUeSpec) 
If IStrSize Then 

GetlNlSettlng » Trfm$(Lefi$(sTempBuf. IStrSize)) 
Else 

GeUNISetttng > sOefsult 
End If 



End Function 



Public Function GetPatientOataFromDisk(ByVal sFileSpec As String, DataStruct As DeviceDataStruct, lErrorRe 



C 



Gat an of the paSent data from the tUe on disk and place into memory. 
'The filename that is passed here must be a valid patient tile and verified 
"by the calling procedure. 

Dim sSection As String. I As Integer, sTemp As String, r As Integer 
Dim IFiieChecksum As Long, ICheckSumTally As Long 

On Error GoTo GetP»tientDataFromDisx_Error 

'Read the Be and calculate the checksum. 

IFiieChecksum « C^rnputelnlSectionChecksum(sFaeSpec, "Device Data") 
ICheckSumTilly » GetJNISetting(sFUeSpec, -General-. "Device Data Validation*, 0) 
If IFBeChecksum <> CheekSumTafly Then 

lErrorRctum « ERR_DATA_CHECKSUM 

Exit Function 
End If 

IFiieChecksum - Computelnl$ectionChecksum(sFaeSpec. "Event Data") 
ICheckSumTaBy « GetlNlSetting(sFiieSpec. -General-. "Event Data Validation*, 0) 
If IFiieChecksum <> ICheckSumTalrv Then 

lErrorfletum « ERR_OATA_CHEC KSUM 

ExB Function 
End If 

. ^ 
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□ 



(Z 

r 



IFileChecksum » CcmputelniSecttonChecksum(sFfleSpec t "Device Emir Flags") 
ICheckSumTafly * GeUNISettingCsFileSpec, "General-. "Device Error Flags Validation". 0) 
If (FBeChecksum <> ICheckSumTafly Then 
lErrorRetum « ERRJ3ATA_CHECKSUM 
ExB Function 
End If 

sSection » "Device Error Flags" 

OataStruct.bErrorFatal « CBool(GetlNISetting(sFaeSpec. sSection. "Fatar, False)) 
DaUStruct.bErrorNcnFatal = CBooI<GetlNISetting<sFBeSpec, sSection. "Non Fatal", False)) 
DataStroct-bErrorOoseStze - C8ool{GetlNISetting(sFBeSpee. sSection. "Dose Size", False)) 
OataStmcLbErrorMedRemaining « CBool{GetlNISettlng(sFBeSpec. sSection. "Med Remaining-. False)) 
OataStructbErrorMemoryFufl « C8ool<GetiNISetting(sFiieSpec, sSection. -Memory FuJT. False)) 
DatoStruct.b£rrorBrownOut » C8ool(GetlNlSetting(sFHeSpec. sSection, "Brownout", False)) 

sSection a "Device Data" 
EraseDataJnMemory Data Struct 

sTtmp » GetlNISettingfsFileSpec. sSection, "Device Init Date", 0) 
If IsOate(sTemp) Then 

DataStrucUDevicelnitDate = DateValue(sTemp) 
End If 

sTemp - GeaNISettlng(sFileSpec. sSection, "Events Ref Date Time". 0) 
lfl$Date{sTemp)Then 

^DataStruct.dDevtceRefDateTime » DateValue(sTemp) 

sTemp * GeUNISettJng(sRleSpec, sSection. "Last Download Date". TT) 
lflsOata(sTemp) Then 

^^frStruetdUstDownloadOate » DateVatue(sTemp) 

DataStructsPatientLastName • GetlNlSetting(sFfleSpec, sSection. "Last Name". "") 
DataStructsPatientFlrstName « GetlNISetting(sFBeSpec. sSection. "First Name". ~) 
DataStructsPattentlD » GetlNtSettlng(sF8eSpec, sSection, "Patient ID", -) 
OataStrueUTxCenter » GeUN1Setting(sFlleSpec. sSection, Tx Center", -) 
I =• Clnt(GeUNiSettmg(sFaeSpec, sSection, "Organ Reference Number". "0")) 
If i And I <« UBound(gsOrganNames) Then DataStnictsOrgan - gsOrganNamasO) 
I = Clnt(GetlNISetting(sFBeSpec f sSection. "Drug Reference Number". "0")) 
in And i <» UBound(gsDrugNames) Then Data Struct. sDoig » gsDrugNames(I) 
DataStructsSenalNumber » GetlNlSetting(sFfleSpec, sSection. "Serial Number*. "") 
DataStructsFirmwareVer « GetlNlSettingfsFileSpec. sSection. "Firmware Version-. "1 
DataStrucLsOoaeStre a GetlNISettingfsFileSpec sSection. "Dose Size". "") 
OataStrucUDosesPerOay * Clnt(GetiNISettingfsFiteSpee, sSection. "Doses Per Day". "O")) 
DataStnjctsOoseResolution n GetlNtSetting(sFBeSpec, sSection, "Dose Resohitton", "") 
DataStruct.sMedRemaining = GeUNISettJng(sF«eSpec, sSection, "Medcatton Remaining". ~) 
pataStnjcts8atteryChangeTimer * GetlNtSetting(sFBeSpec sSection. "Battery Change Timer, ~) 
OataStruct.sDoseLockoutHours « GeUNlSetting(sFileSpec. sSection. "lockout Hours Between Doses", "") 

Fori «1 To 14 

DataStruct^ScoreDataO) * GetlNlSetting(sFUeSpec, sSection, "Patient Score Data " ♦ CStr(f). ") 
Next I 

For I * 1 To giMaxDose Times 

sTemp o GettNISetting(sFtleSpec. sSection, "Prescribed Dose Time " ♦ CStrfl), "-t") 

DataStructdPmscnoedDoseTirne<i) - -1 • cVatrfr value 

If IsDate(sTemp) Then OataStruct.dPrescribedDoseTirneO) B CDate(sTemp) 
Next I 

DattStrucUEventOata<0) . Clnt(GetlNISetting<sFDeSpec. "Event Data", "Event Count", TT)) 

Dim sTempUsu;i 0) As Suing 

Fori* 1 To DataStfuct.iEveniOata(0) 
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sTemp » GetlNISettmg<sFileSpec. "Event Oata" CStrfl) "J 
r • ParseOetlmStnntfsTemp, ".", sTemplistfJ) 
DataStrucLdEventOate(l) s COate(sTempUstm) 

- Select Case Trim*(lCase$(sTemplistC2))) 

- Case "dose taken" 

OataStruct.byteEventType(l) « giEVENT DOSE TAKEN 
DataStnjctJEventOataO) » sTemptistf3)~ 

- Case "dose change" 

OataStnaLoyteEventType(0 « giEVENT DOSE CHANGED 
DataStructJEventData(i) « *TempUst(3)~ 

- Case "custom event" 

Data Struct.byte Eve rrtType(i) » giEVENT USER DEFINED 
DataStruct.iEventData(i) * iTempUstp) - 

- End Select 
DataStruct.sUserOeta1{i) * sTempUst(4) 
DataStructsUserOata2(i) e $TempUst(5) 
DatoStruct.sUserOata3(i) « sTempUst<6) 

Next I 



b&rorfatai As Boolean True it tos flag was set in the returned Hags string 
bErrorNonFataf As Boolean true if this /lag was set in the returned flags string 
bErmrQoseSize As Boolean 'true tt this flag was set in the returned flags stnng 
bZnvrMedFernaining As Boolean trve if this flag was set in the returned flags string 
btrrorMemoryfuil As Boolean true if this flag was set in the returned flags string 
bErrorBrvwnOut As Boolean 'true if this flag was set in the returned flags string 
n As Boolean '(1 byte) Bits are set if various errors have occurred and have not 

GetPatientOataFromOisk » True 'return success flag to caller 

GetPatlentDataPromOisk Exit- 
Exit Function 

GetPatlentOataFromDisk^Error 
lEnorRetum ■ En* 

Resume GetPatientDataFromDisk^Exit 
End Function 



Public Sub GetProgramPreferencesO 
toad the program and user preferences into the global variables 
Dim IStrStre As Integer, I As Integer. sFMeSpec As String, r As Integer 
mm sSeetion As String 
sSectton ■ "Preferences" 

!!^^ S ? y * 0rmat " Getw, Setting(gsApplniFileSpec sSectton. "Date Display Format", "Short Date") 
» G,UNtSettln B(8»AppWF»eSpec. sSectton. Time Display Formar, "Short Tims') 
gsngComplianceTimeRange - CSi^GetlNISettmgXgsAppWFfleSpec, sSectton. 'Compliance Time Range VT)) 

sSeetion « "Custom Settings" 

2*!Z2^.. fB ? * m * m9 y °* *» *»• " mn * »■ **< *»» 

» fT'S^S" 1- * G ««NlSetting(gsApplniFileSpac. sSectton. "Last Name Laber, ~) 
If gsCustomlblPatientlastName • - Then gsCustomlblPatientLastName » "Ust Name" 

ft «c^^ b t^L tF S tN . 8me " GaHNJ Setting(gsApplniFUeSpec. sSeetion. "First Name Leber. -) 
If ff«CustomLblPatlentFlrstName » - Then gsCustomLDIPaUenlFirstName - "First Name" 

gsCustomlbiPatienUO » GeUNlSeWng(gsApplniFBeSpec. sSectton, "Patient 10 laber -) 
it 9»CustomLblPatientlD * - Then gsCustomLblPatlentID » "Patient ID" 

u^^^f^T" * ^^S^StesApplniFileSpec. sSectton. TX Center Laber, ") 
If gsCustomlbrTxCenter s - Then gsCustomLbfTxCenter « TX Center 

gsCurfomLbJDrug . GeUNlSetting(gsApplnlFDeSpec. sSeetion. "Drug LabeT. "") 
IfgsCustomLbir^.-ThengaCustomUIOivg.-Onjg- 
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gsCustomlblO/gan - GetlNlSettingXgsApplniFileSpec. sSection, "Organ label". -) 
if gsCustomLWOryan ■ - Then gsCustomLMOrgan ■ "Organ" 

g$LabelGridCohimnCu$tom1 • GettNISetting(gsApplniFaeSpec, sSectton. •Grid Column 1". "*) 
M gsLibeiGrfdCotumnCujtom 1 « - Then gsUbelG/ldCohimnCustoml « XYA Level (ng/ml)" ■ 

g3LebelGrtdColumnCostom2 * GetlNISetting(gsApplniFBeSpec. sSection, "Grid Column 2". -) 
If gsUbelGridColumnCustom2 * - Then g«LabelGridColumnCustom2 » -Creatinine <mg/dr)" 

gsUibelGridCofcjmnCustom3 * G*tlNISettlng<gsApplniFiJeSpec, sSectton. "Grid Column 3*. ") 
If gsLabelGridColumnCustom3 * - Then gsLabelGridCotumnCustom3 * Xustcm" 



Gef me //sr of most recently used fi/es to the menu 
For i ■ 1 To fmTMainjnraiFueMRU.UBound 
im»MairirnnuRleMRU(D.Tag « GetlNlSetttogfcsApplniFHeSpec, •Recent Files". CStrfj). -) 
_ I f ftmMain.mnuFlleMRU(i).Tag <> " The n 
frmMain.mnuRteMRU(i).Vlsibte * True 

me Slespec *wey from the tag and out tnzo me ceofifcn for dlspiav purposes 
r • GetFUeNameFromSpec<fmiMain.mnurUeMRU(O.Tag, sFBeSpec) " 'hoUs the name of the lite 
frmMaJn.mnuFt»eMRU(I).Cap«on ■ sFSeSpec 
frmMain.mnuFne Barfi. Visible « True 
- End If 
Next I 

'Car last values for the Fax conwl that was last set by user 
sSection • User Selections" 
With FAX.DATA 

.sSenderName - GetlNJSetting(gsFaxFileSpec, sSection. "Sender Name", ~) 
.sSenderCompany « GetlNISeltmg(gsFaxFileSpec. sSection, "Sender Company-, -} 
.sSenderVolceNumber ■ GetJNISetting(QsFaxFaeSpec sSectton. "Sander Voice Number", -) 
^Sender? axNumber • GetlNiSetting(gsFaxFaeSpec, sSection, "Sender Fax Number. ") 
.sFaxtD • GettNISetttogtgsFaxFiieSpec, sSectton. "Fax 10". ") 
.sOialPreftt - GetiNlSemng(gsFix File Spec. sSectton, "Dial Prefix-. -) 
JRetries - Clnt(GetfNISetting(gsFaxFBeSpec. sSection, -Retries". V)) 
.IRetryfnterval ■ Clnt{GeUNlSetting(gsFaxFBeSpcc, sSection. "Retry Interval". "1")) 
.bFaxResotutton « GeKNISetltng(gsFax File Spec. sSection, -Resolution-, "0") 
End With 



'Cat the Drug types from t3e and place in g lobal bst 
sStcton « Transplant Centers' 

TxCentarstO) » GtmSattng{gsApptniF3e$pec sSecton. "Cot/rtf", "07 
Fori = 1 To TxCentarstC) 

TxCentersti) « GetlNlS»tiing(gsAppiniFileSpec. sSacvon. CStnJ). IT) 
Naxti 



(Z 



"Ger tha Drug types from fBe and place in global list 
sSection « "Drugs" 

gsDnugNames(0) • GetlNlSetttog(gsApplniFiJeSpec, sSectton, -Count", TT) 
For I • 1 To gsOrugNames(0) 

gsOrugNamesfl) * GetlNlSetting(gsApplniFI1eSpec. sSectton, CStnT), TT) 
Next i 

•Get the Drug types from tiia and of ace in global list 
sSectton * "Organs" 

gsOrganNames(0) ■ GeUNISetongtesApplniFlleSpee. sSectton, "Count", D*) 
For i « 1 To gsOfganNames(0) 

gsOrganNamesO) « GetJNlSetbng(gsApplniFaeSpec. sSection. CStr(I), t)") 
Next i 

giCurrenffip = Cint(GeUNISetting(gsApplniF«eSpec. "Options". -Current Tip". 1)) 
"Get settings of calendar torn 

CAl_DEFAUlTS.chkDosesMissed ■ CB^GetlNISettingtgsApplnlBeSpec, "Calendar Settings", "chkDosesMissed", 1)) 
CAl_OEFAULT5.chkDosesNotCompfied » CByte(GettNISetting(gsApplniFileSpec, "Calendar Settings". "chkOosesNotCompfJed*, 1)) 
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CAL_DEFAULTS.chkDosesTaken • C Byte (GetiNtSettlng(gsApplntFile Spec. Xalendar Settings". "chkOosesTaken". 0)) 
CAL_OEFAULTS.chkOoseChanged - CByte<GetlNlSetting{gsApplniFtleSpec. "Calendar Settings'*. "chkOose Changed". 1)) 

'Gef Settings of Patent summary form 

PAT_SUM_DEFAULTS.cmboOataToView « CByte(GetlNISettHig{gsApplniFileSpec, "Patient Summary Settings", "cmbo Data To View". 1 
)) 

PAT_SUM_0 EF A ULTS.cmboCha rtTypo » CByte(GetlNISetting(gsApplniFUeSpec, "Patient Summary Settings'. "cmboChartType", 1)) 

'Gef the web address feme browser 
gsWebStartingAddress « "http:/r 

gsWebStartingAddress » gsWebStartingAddress ♦ GeUNISelting(gsApp!niFaeSpec. "Web Data". "User Name". "") ♦ ":" 
gsWebStarting Address =* gsWebStartingAddress ♦ GetlNlSetting(gsApplniFOeSpec, "Web Data*. "Access", "") ♦ 
gsWebStartingAddress « gsWebStartingAddress ♦ Ge«NlSetting(gsApplniFileSpec. "Web Data". "URL". "") 

End Sub 



Sub Main() 

Dim I As Long, r As Integer, i As Integer, sMSG As String, sTemp As String. dTtme As Double 
Dim bBrowserFound As Boolean. ILastAccessOate As Long, INextReminderDate As Ung 

Initialize some application settings 
gsApplniFBeSpec ■ App.Path ♦ V ♦ "CycloTechJnT 
gsFexFttaSpee « App.Path ♦ *\FaxJni" 
gsTempBuf ■ Space*(1024) 

gbCommOK ■ 99 'set to some value other than true or false to property initialize me dialog 

ftmSpJasftShow 
rrmSptasKRefresh 

dTtme » Now 'gef the ome value of now 

Walt0.7S 

frm Login. Show vtoModal 

If Not frmLogm.OK Then End logm Failed so exit epp 
Unload frmLogin 
Do Events 



'rgh note that the debug flag is turned on end the fax icon is hidden 
I « SheltiApp.Peth ♦ TFexmanllexe /DAT. 1) 'start the fax server 
I « SheBfFaxman32.exe /H". 1 ) 'start the fax server 
Load frmMaai 

Set gcFax • frmMairuFaxManl 

If browser feature is turned on in the iM file, then ectlvate item on the menu. 

See if we should »0ow access to visit Sangstat on the Internet 

r • CBool(GetlNISeWng<gsApplnJFUeSpec. "Web Data". "Active". "False-)) 

If r - False Then mriMainjnnuAccessWebSite. Visfele » False 'no key found in mi (Ue 



CommJnitialfceCommPort -initialize the comm port from INI Hie settings 
GetProgramPreferences 
EresaDatalnMtmcry PAT DATA 
EraseDatalnMemory TEMP_DATA 

•Set some menu items 
frmMatamnuRle Save. Enabled » False 
trmSpiash.ZOrder 




Loop 



If CDbl(Now) > dTtme ♦ 0.00005 Then Exit Oo 
DoEvents 



w-aif for a mmmum amount of me before unloading splash screen 



*7 
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Unload frmSptash 

frrnMain.Show 
SetPrinterlcon False, * 



'See it we snouia shown bps at startup 

r = CBool(GetiNISetting(gsApp!niFireSpec. "Options". -Show Tips at Startup', True)) 
If r Then frmTip.Show 

See »/ we should remind user to visit Sangstat on the Internet 

If frmMain jnnuAcceasWebSite.Vlsible * True Then user must ha ve menu selection on to access web 
Try find a browser by looking in efferent sccaoons in me registry 
frmMain.Mhtni1.Key = ClasseaRoot 

frmMain.Mhlni1. Entry Section = "HTTP\sheU\open\Command- 
HrmMain.Mhtn'1. Entry item * ~ 'gets the default value 

frmMain.Mhl ni 1 .Action * 13 g 0 t registry key 

If Lenanm(frmMain.Mhlni1. Entry Value)) > 0 Then 

berowserFound « True 'Loo** Ska a value is then 
End If 

frmMain.Mhlni1.Key a t oca (Machine 

frmMatn.Mhlni1.EntrySection « ^OrTWARE\CJasses\HTTP\sheH\open\command- 
frmMain.Mhlni1.£ntn/ltem « - 'g&s the default value 

frmMain.Mhlni1 Action = 13 registry key 

I " LenCTnm(frmMain.Mhlni1 .Entry Value)) > 0 Then 

bBrowserFound « True 'Looks Hke a value is there 
I End If 

If bBrowserFound Then 
ItastAccessOate » 0 

?.T* mp " G««NlSetling(gaApplniFBaSpec, "Web Data". Xast Web Visit Date', ~) 
if lsDate{sTemp) Then ItastAccessOate = DateVarue(sTemp) 

INextReminderOate « 0 

?7Z0? * ®* WSrt,to Bto«APpWFBtSpMi, "Web Data', "Next Web Vteit Reminder Data". -J 
If lsDate(sTemp) Then INextReminderOate « DateValue(sTemp) 

•On this One. If Lis negative then H indicates that the user chose to not connect 
the last tine he/she was reminded, in this case we wait a much 
'shorter penod of time be/ore reminding them again 

If DateVmlue(Now) >« INextRemJnderDa ta Then It's Seen too long since the user was last on the web. 
If FUetAccessDate > 0 Then 

sMSG • "You last connected to our Internet web site on " ♦ sTemp ♦ * 
Else 

sMSG = -You have not yet connected to our internet web site. - 
End If 

sMSG « sMSG ♦ There may be a program update or other valuable in formation there." 

smsg » sMSG ♦ vbCrtf ♦ vbCrLf ♦ "Would you Bke to connect to the web site now? (you must already have web access ava Sable 
Beep 

r - MsgBox(sMSG. vbQuestion ♦ vbYesNo ♦ vbOefauitButton2. Internet Connection RemindeO 
regardless of the answer to the next question, set a minimum time to ask user again, 
if user actually connects to internet, then Ms time is overwritten with a longer one by the browser. 
SavelNlSetting gsApplniFHeSpec. "Web Data", "Next Web Visit Reminder Date". FormatS<Now ♦ 1 5. "Medium Date") 

Ctfr-vbYes Then 
Cal UgonToWebSae 
End If 
End If 

— End If 

- End If 

End Sub 



E 
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Public Sub LogonToWebSite() 

V/srf Sangstat on the Internet 
Vim frmB As New trmBrowser 
Xoad frm&rowser 

frm Browser. Starting Address - gsWebStartingAddress 
Oo Events 'allow time to paint 
Oo Events 'allow arte to pain t 
frmerowser. Refresh 
frm Browser. Show 
End Sub 



Public Function OpenPatientData(ByVal sFileSpec As String) As Integer 

'Open patient date file end toad to memory 

'Return a true if toad was successful, falsa tfnci and vbCancsl tf user cancelled 

Dim r As Integer. sTemp As Siring. lErrorCode As Long 
On Error GoTo OpenPatientOata_En*or 

r • VaBdatePatientDataSaved 'n:e*e sure any device data has first oeen saved 
Iff" vb Can eel Then Exit Function 

*Gef a filename from the common dialog 

'Setup Vte common dialog control prior to showing It 

With frmMain^OgCornmonOiaiog 

.Flags » cdlOPNOverwritePrompt Or cdJOFNPathMustExist Or cdlOFNExplorer Or cdlOFNExtension Different Or 
V*. cdlOFNNoReadOnlyRetum Or cdJOFNHideReadOnry Or cdJOFNFileMustExist 

XancelEnor « True 'generate error if CANCEL button is pressed 

.InftOir « App.Path ♦ "\Patient Data" 

.Filter « "CycioTeeh Data File ".cpd|\cpd" 

.DlalogTttla » "Open Patient Oata Re' 

.OefauftExt « "CPO" 'append 'Structure ' exfenoon when saving. 
If aFSeSpec o ~ Then .filename - sFileSpec 
.ShowOpen "Open dialog 

End With 

"Now get the data from 6le 
fmtf\Aain.MousePointer « vbHourglass 
Do Events 

r s GetPatienu^taFromWsk(frmMain.dlgCommon01aIog.mename. PAT DATA, lErrorCode) 
. If r«> True Then 

i If lErrorCode » ERRJ)ATA_CHECKSUM Then 

sTemp ■ "The contents of the data Ble have changed since it was last saved. " 

eTemp « sTemp ♦ This could be due to a corrupt file, but is more Dkely that the file was manually changed." 

sTemp ■ sTemp ♦ vbCrU ♦ vbCrLf ♦ The Ate wai not be loaded." 

Beep 

MsgBox sTemp, vbCritical, "File Contents Changed- 
Else 

MsgBox "An error occurred while retrieving data from the file. It was not read.", vbExclamaa'on, "Error In File - " ♦ Errof(r) 
I ii i i End If 
I End If 



PATJ)ATA.sPabentDataFaeName . frmMain.dlgCcmmortf ialog.rdename 
OpenPafientOata * True 

r ■ ^Hler^rrwFromSpecCPAT.DATA^PatlentDataFiJeName, sTemp) ?ic/tf We name of the £e 
VpDeteRecentRleMenu sFileSpec ' ' 

UpOateRecentFUeMenu sTemp 
fm»Main.rnnuFileSave. Enabled • True 

OpenPatientOata_Exfc 
On Error Go To 0 
RefreshAllOpenForms 
frmMain.MousePointer e vbOefault 
Exl Function 
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OpenPatientOata_Error: 

— " En* 9 cdlCancel Then cancel button was pressed m dialog 

OpenPatientData « vbCancel 
Resume OpenPatientData Exit 
_ Elsa 

Beep 

Msg8ox The CycloTech Data file contains invalid data and can not be read.'. vbExciamation. "Invalid Data F8e - * ♦ Error 
PAT_DATA.sPatlentDataF9eName « - 
frmMain.mnuFileSave.Enabled = False 
_ End If 

OpenPatientData = False 

Resume OpenPatientDala_Exft exit anywey for now 
End Function 

Public Sub PopulateDeviceDiagDialog(DataStruct As DeviceDataStruct, SourceForm As Form) 
'Then ere two possible dalogs rtar nave me same contra s cn them. 
'This csmmcn procedure win populate bcth 
Dim I As integer 

With SourceForm 
'Show custom labels from conf.g file if there were any 
.LabeM (3) » gsCustomLbtPatientLastName 
.Lab«l1{1) • gsCustomLblPabentFirstName 
.Ubell(S) - gsCuatomlblPatientlD 
Xabell(6) • gsCustomlbfTxCenter 
Xabel1(7) * gsCustomLWDrug 
.Ubel1(0) ■ gsCustomLblOrgan 

— If TypeOf .txlDnjg Is SSPanel Then 

.brtOrug » DatsStructaDrug 

— Elself Type Of .txtOnjg Is Combo Sox Then It is a list box 
.bctDiugXIear 

For I • 1 To gsDrugNames(0) Utt the drugs Hst box with available choices 

.bet Drug Add Item gsOrugNamesfT) 
Next I 

For I • 0 To .txtDrug.LlstCount - 1 

If .bctOrug.Ust(l) o OataStruct.sOrug Then 
.brtDrug.Ustinoex «* I 
Exft For 
End If 
Next I 
End If 



If TypeOf .brtOrgan Is SSPanel Then 
.txtOnjan ■ OataStnjctsOrgan 

Elself TypeOf JxtOrgan Is ComboBox Then 'it is a Hst box 
.bctOrgaaCtear 

For I ■ 1 To gsOrganNamesfO) *Stl the drugs list box with available choices 

. brtOrgan. Addl tern gsOrganNamesfi) 
Nextl 

For I « 0 To .txtOrgaivUstCount - 1 
If .txtOrgan.Ust(i) « DataStmcLsOrgan Then 
.txtOrgan-Listlndex - i 
Exft For 
-End If 
Nexti 

End If 



.brtPaUentUstName * DataStnjct.sPatientLastName 
' 
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E 



E 
E 
E 
E 
E 
E 



.tatPetlentF irstName • OataSlruct.sPatientFirstName 
.brtPatlentID 3 0ataStrvct.sPatlentlO 
.brtTxCenter - DataStructsTxCanter 
.txtSerialNumber - OataStrucLsSerialNumber 
.MOosaSize = OataStructsOoseSlze 

.txt Pa tien (Last Name . S ct Focus 

If DatoStructiEventOatafO) Then 

.txtEvantCount • * - ♦ CStrtpataStrucUEventOata(O)) ♦ ' * 
Else 

.txtEventCount « ™ 
End If 

For i « 1 To giMax Dose Times 

If OataSlnictdPrascribedOoseTimefj) >* 0 Then .tatDoseTime(i) » FonnaWDataStruct.dPrescribedOo$eTime<l). 

gsTeneDtsptayFormit) 
Next I 

.MDosesPerOay * CStr(Dala Struct iOosesPerDay) 
.ZetDoseResolution * OattSSvct.sCose Resolution 
.txt Do setocKout Hours ■ Dat a StmctsDcse lockout Hours 
If DataStrucUOovicelrutDate Then 

.txtOevlcaStarted ■ • • ♦ Forma!$(CDate(DataStructlDevicelnitDate), "Medium Date") 
End If 



.txtMedicatJonRemaining ■ • " ♦ OataStructsMed Remaining 
.txt Battery Change Ttmer » — ♦ DataSttuctaBatteryChangeTlmer 
.WFlmwamVer «""♦ OataStiuctaFlrmwareVer 

'sat Indicators tor error /Tags 
If DataStructbErrorFatal Then 

JmgFataLPIcture « JmgError.Picture 
Ebe 

,imgFatal.Ptcture • JmgNo Error. Picture 
End If 

If OataStructbErrorNonFataJ Then 
' JmgNonFataLPicture • .Img Error. Picture 
Ebo 

JmgNonFataL Picture « .rmgNcErrorPlcture 
End If 

If DataSbuctbErrorOoseSize Then 

JmgOoseSize.Picture ■ JmgError.Ptcture 
Ebe 

JmgOoseSize.Picture e jmgNo Error. Picture 
End If 

If DataStrudbErrorMedRemairfng Then 

Jrr^MedRemaining.Picture « Jmg Error. Picture 
Ebe 

.ImgMedRemaining. Picture * JmgNo Error. Pteture 
End If 

If Data StructbErrorMumory Fun Then 
JmgMemoryFull * JmgError.Picture 
Ebe 

.ImgMemofyFufl.Picture » .img No Error. Picture 
End If 

If DataStructbErrorarownOut Then 
.tmgBrownOut « JmgError.Picture 
Ebe 

.tmgBrownOut. Picture « .imgNo Error. Picture 
End If 

End With 
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End Sub 



Public Sub RefreshAJIOpenForms() 
Dim r As Integer 

Vsny of these forms are open at me time a new file is looted. 
Then refresh them. 

For r • 0 To Forma.Count - 1 

. Select Case Forms(r).Name 

Case "frmPatitntDosingReporr 

ftmPaUantDosingReport.UpdatefrmPatiertDosingReportHeader 
hmPa«entDosingReport.UptJaiePa«entGridDisplay • 

Case "frm Dosing Calendar* 

If PATJ)ATA.dEventOate<PATJ**ATAJEventData(0)) > 0 Then IhnOosingCalendar. Calendar. Date » 
V> dEventDate(PAT.OATA.iEventData(0))) 
UpdateCaiendar 

Case TrmPrtnT 

RefreshPreview 

Case "YrrnPauentSurnmary" 

frmPatlentSummary.UpOatafrmPatientSummaryHeader 
frmPaUentSumniary.cmboaateSeiection CDck 
•fhvPatientSummary.UpdatePatientDosingGrapfi 

Case "rrmOevtcelnlttaUze- 

PopulateOevlceCommOiatog PAT.DATA, frmDevlcelnltialfce 

Case "ftmReadOeviceOata* 

Populate Device CommOialog PAT_DATA, frmReadOevfceOata 

End Select 

Nextr 

End Sub 



Public Sub SetPrintertcon(bEnable As Boolean, sTTp As String) 

On Error Resume Next 
rrmMaln.mnuFllePrtnt.Enabled * b Enable 
. IfsTip •* ""Then 

frmWain.nvuiFBePrint.Caption = "Print-." 



frmMaln.mnuFilePi1ntCaption - »Tip 
- End If 

fhnMalatbToolBar.8uttona.ttem(5).Enabled « bEnable 
frmMaln.toToolBaf.Buttons.rtem(5).ToompText - aTip 

Vthe active form is not the print form, then keep the name of the 
form in the key property of the Icon. This is so that the print 
'form will Know what kind of information to olsptay and pant. 

If ftmMtln>ctlveFqrm.Name <> TSrmPrtnr Then gsActrve Form Name - frmMaln.ActiveFonn.Na me 
On Error GoTo 0 
End Sub 
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Public Sub UpDateRecentFileMenu(ByVal sFileSpec As String) 

'Add the newest FUeName & the menuttst and move the other ones down. 
On Error GoTo 0 



Dim bOupficateFound As Boolean, I As Integer, r As Integer. sFBeName As String 
r « GetFiteNameFromSpecfsFBeSpec, sFileName) hold the name of the file 

WthfrmMafn 
j For I e 1 To .mnuFileMRU.UBourtd - 1 

. If LCase${jrtnuFaeMRUO).Caption) « LCase$<sFi!eN3me ) Then 'remove ar. v cvsiictt es toat might apcear 

.mnuFileMRU(i)Xaption « - 

.rrmufi!eMRU(i).Tag = ™ 

bOupficateFound ■ True 

I End If 

I Next) 

p_ For I • jnnuFileMRU.UBound - 1 To 1 Step -1 

j If .mnuFUeMRU(l).Caption o - Then 'cor.tair.s a filename ok fo shift down 

.mnuFlleMRUfj ♦ 1).Caption = .mnuFileMRU(l).Capoon 'holds filename only for display purposes 
.mnuFileMRU(i • 1 Mag » .mnuFBeMRU<I).Tag T.clds tte fllesoec 

.mnuRJeMRU(l ♦ 1). Visible « True 

Else 

- .mnuFUeMRUfl ♦ Invisible » False 

I End If 

I Next! 



.mnuFIIeMRU(1).Tag - sFileSpec 
.mnufileMRUO). Caption = sFBeName 
.mnuFBeMRU(1).VrstWe « True 
JitnuFileBare.Vlstole • True 

End With 

End Sub 



Public Function GetFfleNameFromSpec(ByVal sFileSpec As String, sFileName As String) As 

•Stop the Slename and Mention from the filespec (drive\pathMUenamei 

Dim r As Integer 

ReOtm sUst(50) As String 

On Error GoTo GetFfleNameFromSpec_Error 

I lfLen(sFUeSpec)>OThen 

r - ParseOeUmStf1ng{sFIeSpec. V, stisiO) detfmrr all subparts 
sFBeName « LCase*<sUst(r)) * iB „ ame « l9St item ,„ Sst 

'something was mtwned 

If Len(sFBeName) > 0 Then GetFDeNameFromSpec • True return success to ceBer 
End If 



GetFDeN«meFromSpec_Exfc 
Exit Function 

GelFleNameFromSpec.Error: 
"Resume 0 
Resume GetFaeNameFromSpec_E*rt 

End Function 
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Public Function ParseOelimString(ByVal sParse As String, ByVal sOelim As String, sFieldStrings() As Strinm t 

'Parse 'sParse' passed here. Put resulting parsed names m a list ailed sFiefoSlnngs. " g ' f 

'Use sOeiim as the dainvterto parse string. 

'Tnm any leading and vailing spaces from each field. 

snetdString list must pre-exist before calling here, and should be big enough to 
'hold ail deiinvtad snings. 

The Us: contains fields in the order they apceared from ieft .*o nght. 
Function returns number of nelds found. 

Dim i As Integer n 00 p counnr 

Dim iOeiiml As Integer. i0elim2 As Integer marks beginning and end of a Held 

If len(sParse) • 0 Then ExR Function 'exit if no chars in snng 

iDellml «0 'set first deiim marker to begnrJng of tine 

if Right KsParse. Un(sOeHm)) <> sOeiim Then 'see if a deUm ts aireadv at the end of the stnng 

sParse • sParse ♦ sOeiim 'put a detlrr. ax end of Una 

End If 

'Note: an Erase metnod can net be used as it radims the array to only a few elements 
For i « 0 To UBound(sFiefdStrings) clear out old data from the arrav 

sFieldStnhgs(i) » - 
Next! 

1*0 

- Do White tOeflm 1 < Len(sParse) Keep looking td aU detims are found 

lDelim2 « InStrflOellm t ♦ 1 , sParse, sOeRrrt) 7oo* for dclim in string 
get Held from string, trim off spaces and put field into list 
sFitldStnngsO ♦ i) . Trim$(Mld$(sParse. iDellml ♦ 1. ID«IIm2 ♦ IOeiiml - 1)) 
iOeiiml » IDellm2 'reset first detim marker to fastest one found 

I ■ I ♦ 1 Increment field counter 

— Loop repeat search 

ParseOelimSlring = I -put parsed items count in element Oof list 

End Function 



Public Function SaveDataToNewFile() As Integer 
*Gef a filename from the common dialog 
'Setup the common dialog control pnor to showing it 

On Error GoTo SaveOataToNewFBe_Error 
With (rrnMairuJIgCommonOiakig ~ 

.Rags • cdOFNOvemrite Prompt Or cdJOFNCreatePrompt Or edIOFNPathMustExist Or cdlOFNExptorer Or cdlOFNExtenstonDlfferent 
Or cdlOFNNoReadOnlyRetum Or ccflOFNHide Readonly 
.CancelError ■ True 'generate error if CANCEL button is pressed 

.IntOtr » App.Path ♦ "IPatlent Oata* 
.Fitter • •CydoTech Data File '.cpdj'.cpd" 
.DialogTttie « *Save Patient Data As_.- 

.DefauttExt « "CPD" 'append 'Structure * extension when saving 
If PAT_DATA.sPatientDataFiieName • ~ Then 
.filename • PATDATA.aPa6entLastName ♦ " ♦ PAT OATA.sPmtientFirstName ♦ • - ♦ PAT OATA.sPaiientID ♦ " co<T 'set i 

default file name ' ~ • -r - 

Else 

.filename « PAT_OATA.sPaflentDataFileName 
End If 

.ShowSave 'save as dialog 
End With 

PATJDATA.sPatiertDataFaeNaine - frmMain.dlgCommonOialog.fBename 
SavePatientData PAT_OATA.sPaUeraDataFBeName 
SaveOataToNewFile » True 

SavaOataToNewFBe_Exit: 
Exfi Function 

Save DataToNewFile^Error. 
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If Err = ccfl Caned Then 

SaveDataToNewFile ■ vbCancel 
Resume SaveDalaToNewFile Exit 

End If 

SaveDataToNewFile = False 



End Function 



'cancel button was pressed in dialog 



Public Function SavePatientData(ByVal sFileSpec As Siring) As Integer 
'Save all of the patient data currently m memory to a disk file 
'Return a true it save was successful, false it net and vbCancel if user cancelled 

Dim sTemp As String, r As Integer. I As Integer, sSection As Siring 
Dim ICheckSumTilly As Long 

On Error GoTo SavePitientData_Em>r 

• r * Ge/RfeA/arneFn*nSpecf<toMa/n.tfc^ sTerr.p) save the drwas selected by user 

We need to confirm with user that it Is desired tc save these tile modifications under the same 
name as the one that was Just loaded. 

! ^^^"■^^o^atoc./Uename; And frmMan.dtgCommonOlalogJllename • UCaseS(Frof.sStructFiieName) Then 
- MSGS • You are about to save changes to the same fie they were loaded from!' 
MSGS ■ MSGS ♦ * Are you sure you want to do this^ 
Beep 

* r ■ MsgBox(MSGS. M8_Yfc-$JVO. 'Confirm Over Write') 

; Jfr *ID_N0 Then Exit Function 'oops, user almost made mistake, exit sub 

end If 



F 



'Now save the data to the Be 

r*totFil*NameFromSpec<sTemp. sFHeSpec) -hold the name of the file 
'sFBeSpec = App.Pith & Valient Oata" 

frmMa In. Mouse Pointer « vb Hourglass 
Do Events 



sSection = "Device Data* 

SavelNISetting sFileSpec, sSection. "Date Saved To File' Now 

sSIS SEt?? i 2°* Software V «~«"-. CStr(Ap*MaJof 4 V 4 App.Minor 4 V 4 App.Revision) 
f I!! « *2 ? PeCl sStctton - F*™™* Version'. PAT_OATA,sFlrrmvareVer 

w^n^Sc^' SSeCti0n ' ^ ° CWnlMd Date "* CDate(PAT^OATA.dLastDownloadOate, 'snort oate musf be usee" to prevenr 

f^^!!^ 8 ^^^ »$«ction. -Device Init Dale". CDate(PAT_DATA.IOevicelnitDate) 

f ™w IIS2 *f 2 !° n ' ? Ven,s Date r,m *"' CDate(PAT„DATA.dDeviceRerDateTime) 

Save NlSettJng sFOeSpec. sSection. "Last Name', PAT.OATA.sPetientLastName 

Save N Setting sFBeSpec. sSection, Tret Name-, PAT_DATA.sPaUentFirstName 

SaveWISettjng sFileSpec, sSection. -Serial Number-. PATDATA.sSenalNumber 

Save INI Setting sFileSpec. sSection, Tatlert ID", PAT DATA.sPatlentiD 

^IJ!!?^ 8 »2*Spec. sSection. -Organ-. PAT_DATA.tOrgan 

l^lS^!Sc P,C ' 5 ?!f!° n ' R «'«™<* Number". CSblGetOrganRefNumberO) 

f £2! S" 9 «2eSpec, sSection. Tx Center-. PAT DATA. sTx Center 
Save INI Sitting sFileSpec, sSection. "Drug", PAT DAtXsOrug 

I^InIII^SIc^- 35* Refere"*nce Number, CStr(GetOrugRefNumberO) 

! ff »PatSpec sSecbon, "Dosa Size". PAT DATA.sOoseSlze 

*S!? PeC ' *! eCti ° n ' "° cses Per Day-rcStr(PAT.OATA.©o»esPefOay) 
einSSSIS *S!! PeC ' *! eCtt0n - " Do,e "•**J*>"". PAT.DATA.sOoseResolutlon 

!5!? peC ' *f ^»««««on Remaining-. PAT^DATA^MedRemainjng 
fi£ m £22 8 S!! W *f!^ n « ? attef y PAT.rjATA.sBatteryCharSeTimer 
SavelNISettmg sFBeSpec. sSection, -Lockout Hours Between Doses", PATJ)ATA.sDoseLockoutHours 

Fori- 1 To 14 

^SavelNISetting sFBeSpec, sSection. "Patient Score Data " ♦ CStr(i), PAT_DATA.sScore DataO) 



For I ■ 1 To giMaxOoseTtmee 
. If PAT.DATA.dPrescribedOoseTime(l) >» 0 Then 
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Save INI Setting sFfleSpec. sSection, "Prescribed Dose Time " ♦ CStrfl). Formatt(PAT DATA.dPreacribedOoser.mem 
gsTimeDlsptayFormat) v '* 
ElM 

SavelNISetting sFileSpec, sSection. "Prescribed Dose Time * ♦ CStr(i). " None" 
End If 
Next I 

77»i leator is Snished. Co compute me checksum and save it 
ICheckSumTafly » ComputelniSectlonChecksum(sF ileSpec, sSection) 
SavelNISetting sFileSpec. "General-. "Device Data Validation". CStrflCheckSumTally) 

"Be fen saving new event da/a. cfeaz-cu; tea old stiincs 
sSection * "Event Data - 

r « mePrtvateProflleStringtsStction, ByVal OA, ByVal 04. sFileSpec) 
SavelNISetting sFBeSpec. sSection. "Event CounT, CStnJPAT OATAJEventData(O)) 

— For I ■ 1 To PAT.OATA jEventOata(0) 'tctat number of e'vents 

sTemp • FormatS(PAT_OATA.dEventOate(i), "General Date") ♦ ". " 

Select Case PAT_DATA.byteEventType(i) 

Case giEVENT_DOS E_TAKEN 

sTemp s sTemp ♦ "Dose Taken, " 

Case giEVENT_DOSE_CHANGED 

sTemp o iTemp "Dose Change. * 

Case giEVENT_US E REDEFINED 

sTemp « sTemp ♦ "Custom Event " 
End Select 

sTemp » sTemp ♦ CStr(PAT_DATAJEventData(I)) 
sTemp - sTemp ♦ • • ♦ PAT 0ATA.sUserOata1(J) 
sTemp » sTemp ♦ *,"♦ PAT w 0ATA.sUserData2(I) 
sTamp » sTemp PAT_OATA.sUserOata3<I) 
SavetNJScttkjg sFOeSpec. sSection, CStrfJ). sTemp 

— Next I 

This seeffon is 6nished Go compute the checksum and save it 
ICheckSumTany « CornputelnlSectionChecksum(sFUeSpec. sSection) 
SavelNISetting sFileSpec, "General*. "Event Data Validation", CStrpCheckSumTany) 

sSection ■ •Device Error Flags" 

SavelNISetting sFileSpec, sSection. Tatar, CStr(PAT DATA.bErrorFatal) 
SavelNISetting sFileSpec, sSection. "Non Fatal". CStrfPAT DATAJ>ErrorNonFatal) 
SavelNISetting sFileSpec, sSection. "Dose Size", CSbtPAT DATA.bErrorOoseSize) 
? we NjS«tting sFileSpec, sSect| on. "M«d Remaining-. CStnfpAT DATAJiEnwMedRemaining) 
^•^N tFBeSpec, SSection. "Memory FulT. CStrtPAT OATAbErrorMemoryFufQ 
SavelNISetting sFileSpec, sSection, "Brownour. CStr(PAT.DATA.bEnor8rownOut) 

'This section is 6nishe<L Go compute the checksum and save it 

ICheckSumTany ■ Coit»putelniSectk>nChecltsum(sFileSpec, sS action) 

SavelNISetting sFileSpec. "General-, "Device Error Flags Validation", CStrfJCheckSurnTaily) 

gfaPatientOataNotSaved » False 

f .*5? F J teN * m * FromSp8C(,F8,s P ec ' F-AT_DATA,sPauentDatanteName) 'hold the name of the file 
UpOateRecentFiteMenu sFileSpec 
rrmMain.mnuFileSave.Enabled = True 
SavePatientData « True 

SavePa8entData_Exlt: 
On Error GoTo~0 

frmMain.MousePointer » vbDefautt 
ExS Function 

SovePaUentData.Enor 
SavePatientData * False 
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Resume SavePattentOata_Exit exit anyway tor now 
End Function 



cz 

E 



Public Sub PopulateDeviceCommDialog(DataStruct As DeviceDataStruct, SourceFoim As Formi 

Then, an two passu* daicos that h*ve »e same controls on them. ° m ' 
'Ttus common procedure witi poputate both 

On Error Resume Next 'net alt text boxes vwff appear on everv form 
Dim i As Integer 

With Source form 
Show custom tabeis from cootSgtBa U there were any 
.Ubell (3) * gsCustomtblPatientUstName 
.Ubel1(1) • osCustomU>IPatiertFirstName 
.Ubell (5) » gsCustomtblPatlentIO 
.Ubetl (6) « gsCustomlblTxCenter 
.Ubell (7) o gsCustomtblDrug 
.Ubell (0) « gsCustomLblOrgan 

— If TypeOf .txtDrug Is SSPanel Then 

.txtDrug • Data Struct. sOnjg 

— -€lselfTypeOf.bttDrufllsComboBoxThen ft ts a iisi box 
.txtOnjg.Ctear 



For v ■ > 1 To gsOrugNames(0) VW the ontgs list box wth available chotces 

.WOrug^ddltem gsDrugNames<l) 



Next 



For i » 0 To .txtDrug.UstCount - 1 
If .txtDrug.UstO) • OataStruct.sOrug Then 
.MDrug.Ustlndex ■ I 
Ext For 
End If 
Next I 

End If 



cz 

E 



If TypeOf .brtOrgan la SSPanel Then 
.txtOrgan ■ DataStructsOrgan 

Eteelf TypeOf .txtOrgan Is ComboBox Then It is a list box 
.txtOrgan. Dear 

f0r l^ll° 5*°? aftNamo *<°) » »• cf/ugs Est box with available choices 

.txtorgan^ddltem gsOrganNamea(i) 
Next I 



For I « 0 To .brtOrgan. UstCount - 1 
If .txtOrgan.Ustfl) « OataStructsOrgan Then 
.txtOrgan. list! ndex « I 
Exit For 
Endtr 
Next I 

End If 



.MPatlentUstNarne - DataStructsPatlentUstName 
.MPatientFirstName ■ DetaStructsPaUentFirstName 
.txtPatmrmO * OataStruct.sPatientlD 
.MTxCenter = DataStructaTxCenter 
.MSerialNumbar « DataStruct.sScrlalNumber 
.txt Dose Sue » - - ♦ Oata Struct sOose Size 
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lfOataStructiEverttOata(0)Then 

^WEventCount « • " ♦ CSlr(DataStrucUEventOata(0)) « 

.txtEventCeunt ■ - 
End If 

If PAT_DATA.dUstOownloadDate Then 



■♦F« m .,S(CD,«« (0 ,„ sln<ct . 

Ebe 

.txtLastRetrievalDate « ~ 
End If 

.txtPattentUstName 'take focus away from list box after H was set 

For I » 1 To giMaxDoseTtmes 

If 0ataSlmcta7>resitf bedDoseTimetf) »« 0 Then 

^rt*>seTlrne<i) « Forma lS{Dat a stn J cLdPr C jcribedDo SB r l me(l). gsTimeDispJay Format) * " 
Next! 

.brtOosesPerOsy « ■ - ♦ CStrtOata Struct IDosesPerOav) ♦ * " 
.txtDosaResotution « " " ♦ Data StructsDose Resolution i ♦ - • 
■^* e >°^ 0 " tHoura - " * ♦ OataSlnictsOoseLocktwtHours ♦ - - 
i^S^T?™" 0 OataStructsMedRemaimng ♦ • - 
j IfOataSlnjctlOcvteelrUtDateThen 

I ^MDevteeStartad • ' • ♦ Format$(COate(OataStnictfOevicelnilOate). -Medium Date") 

.btteatteryChangeTimer » ■ " ♦ OataStwcLseatteryChang^Timer ♦ • - 

'stf Indicators tor error teas 
With DataSfruct 

SourccFonTUWEnwaReceiveAVblble a True 
Else 

?^c om ^2 Em,f5Recaive(lv,sible ° Fa,w *"° •»« 

SourceFormJblErrorsReceived. Visible » False 

End If 

EndVUth 

End With 
On Error Go To 0 

End Sub 



Public Sub SaveProgramPreferencesn 
Dim I As Integer, sSection As String. sFUeSpec As String 
sSection • "Preferences" 

fc^££Z StSSf^ S ! eCtton ' Former. gsOateOisplay Format 

^ N S ^^,^ 8 *f cction ' " nme D^P'»y Former. gsT,meOisp*y Format 
SavelNISett«nggaApplnlFleSpec sSection. "Compliance Time Range". CStr(oWcomplianceT,meRange) 

CW'ITO nrnMarrunnuFUeMRU.UBound 
^SevelNISettinggsApplnIFB.Spec. "Recent Fies". CStr(l). IrmMa In. mnuFfleMRU(l). Caption 

SavelNISetting gsApptnlFleSpec. "Options-. "Current Tip". CStrtf CurrentTJp) 

•Save Settings of Calender Form 

tl^tSZ S2! n, 2 B ! pee - " Ca,eftdar -chkOosesMissed", CStr(CAL OEFAULTS.chXOosesMissed) 

sg^ppiniMjespec. Calendar Settings . chk Dose Changed", CStn;CAL_OEFAUlTSxhkr>)se Changed) 
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Save Settings of Patient Summary Form 
End Sub S " mma ' y SeMn8 *' "«*"ClwlT W f. CStr(PAT_suM_^ 



rowbef » «i*ce«rve iccrmrimaeon lockup of a>e «ars ci <fe ,n.u 
Oim As Integer, ILowlntfex As Integer, iHighlnde^A^ Inters* ITestlndex As Integer 

Wghlndex • DataStrueUEventOettfO) w „ -„„ B , m „ 
iTe*lnd„ . (MgntrKto ♦ iLo*tnd„/, 2 P "™ y 

FindFteMatcrtngOatetaArray * ifasilndex 

End If 

ITtHInd w » (JHlghlndex ♦ ILowlndax ♦ 0.5) / 2 
- Next I 
End Function 

« d»fe PasZZlr? RetZnfZit^™* matst9f1 * m »• *•*» 
Voneisfoun* n0t hun * " ntwn <** in * 9 * »*•*■»■ 



re/urn tta rntfex no ffi* data 



ByVal IFromOate As Long) As Long 



c 

I — I 



''Note dratthim !* * t#t "**nf dare ,„ m, a/w 

* separate 

^""•"""y^^X. Wpmcrt*. can ft. ^ , * . wraom4tfoo 
Dim I As Imager 

If IFromOatt - 0 Than fFromDate « 99999 

End If 

txtl 



End Function 
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— ______ i ^ 

P rfA S . U L ^ aVe,N,Settin9(ByVa ' SFi,6Na ™ As SWng. ByVa, sSecUon As String. ByVa. sKeyFU*^^ § 

U VVWePrivateProfiteStringfsScction, sKeyFieW, sValue. sFileName) 
End Sub 



c 



Public Function Validate DoseNumbers(frmTaraet As Form) 
ensure that then are at leas: as many cose times as :hera are 
Tor the number of doses pert/ay. 

^l^A^rPf^^T As »—"«t*V As Integer 

" ^^^^""^ ' ° *- ^AT.OATA.^Nu^O.OT.en 

Ext Function 
End If 



With trm Target 
IDoteaPerOay » ValCtxtDoaesPerDay) 

For 1 « 1 To 4 
If lsOata(.txtOo*oTime(0) Then 

IDallyOoseCounts « iOa fly Dose Counts ♦ 1 
End If 
Next I 

If IDaayOoseCounts o iOosesPerOay Then 

VafidaieOoseNumbers » Tme 

Else 

Beep 

'.(/pOow/,Oosa77meC¥;.SafFocus 
■ End If 

End With 

End Function 

Public Function VaJidatePauentDataSavedf) 
Dim r As Integer 
Beep 

W hKXST ^ ^ b " ft MVed " °° V— nt to save «r. vbYesNoCancel * vbQuesuon - 

Ifr-vbyeaThen 

r • SaveOataToNewFBeO 

Ifr-vbCancalThen ValidatePatientDataSaved -vbCance, 'cance/.** from ike save asdaJog 
ElselfravbCancelThen 

VaHdatePaaentOataSaved « vbCancel -cancelled from message bo, 

End If 

— End If 
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Attribute VB_Nime • "modComm* 
Option Ex pOc ft 

•G/odai definitions for device communication, 
^y Glen Hamilton fO/S9? 



•forRS232 communication 

Public gbCommTimertxpired As Integer Vhs Hag is set when the cortm rimer expires 

Pubfle glCommPort As Integer 'Communication Pott # 

PubHc gsCommOeviceSetUngs As Siring speed settings tie 24O0.N.6.2) 

Public gbCommReptyPendlng As Boolean « command was Just sanr. and reply is pending 

Public gbCommBusy As Boolean 'a command is in progress. GeCs cleared when reprv is received or ames out 

Pubfic gbCommOK As integer needs fo be an integer tno boolean) keeps current status ot communications. „« 

W czmm. true » ccmm ok. any ether value for simulaton wns. raise* no 

Pubfic giDevkeResponseWait As Integer 'mHMsecs to wait for next char before assuming end ot received smnc 

Private Const ERR_COMM_BADRESPONSE =31001 * 
Private Const ERR_COMM TIMEOUT = 30998 
-Private Const ERR_COMM STRINGLBNGTH «* 30997 
'Pnvate Const ERR COMM euSY * 30995 
Pnvate Const ERR.COMmJchECKSUM ■ 30995 

PubOc Const ERR.DATA CHECKSUM » 99997 
V ^ C ° 0nSt ERR - NEWER - H OST_SOFTWARE - 99998 'see when device returns custom data that was saved with a newer revise 



"Device communications 

PubBc gbKeepPolKngDevlce As Boolean -when true, continuous polling ci device is done 

Valine some application specific variables & constants 
Public gsApplniRleSpec As String 

Type DevteeOataStnjct 

"S a S!!?i?^I* mt StTin ° '< 16 by***) uses 1st 16 byte block of the pafienUpbarmacy ID & Names 
sPabentRratName As String '(16 bytes) uses 1st 16 byte block of the paoentfpbarmacy ID 4 Names 
sPatientlD As String 

SWnB (16 byt6S} u *** 2nd 16 biock * 0)9 padenVpharmacy ID & Names 

sOrgan As String T« byres; uses 2nd 16 byte block of the patient/pharmacy ID & Names 

*Z*T?O sr Strtn ° ' (16 ****** «»* 16 byte block of the patient/pharmacy ID I Names 

sSerialNumber As String v;o byres) device serial number 
tFirmwa reVer As String 'Rev version and date of firmware 

sOoseStre As String yj oyfe; stored here in mg. The device uses 'mT (lOOmg « f mil 

•Device Dosa size is in optical neks (0 to 200) max dose •5 ml. 

sPatJintDataFileName As String file path and filename of the data in memory 

'Note: the daily prescribed dosing times below are stored In fractional days. This is done 

speed display operations and reduce me amount of memory needed. The device actually stores 
these values as intervals relative to WO in the morning. Thus, the times are converted to 
intervals when communicabng with the device. 

d^icribedOoseTime(4) As Double 'doses due during the day (prescribed} usually a max of four 
lOosesPerOay As Integer V byte) 9 of doses per day (1 to 4> 
sOoseResotution As String '(1 byte) Called 'Dose Conversion' in firmware. 

•Optical ticks to mgrnutbpher. OE 2 ticks* 10 mg.) 

-Optical ticks are Sxed at 0.05 mj per lick. 
sMedRemaining As String '(2 bytes) Medication *$upply volume' remaining On optical ticks) 
s5Coreuata(14) As String . Today's scerefU bytes for all scores) of last U days doses taken. Circular buffer 

-vabd data is value from 0-4 representing number of deses taken each day. 

•Note: The Score pointer 0 points to the current day. 

'Note that the following arrays can not be larger than 1500 events or else the space bmit 
of64K wilt be exceeded. If necessary in the future to have more events than this for 
ic n ff/ * m ' n ma * # * sep9rwt0 m Y <** diagnostic data or temp data. 

iEventOata(1400) As Integer the data occurring for the event data. Might be a dose size, error Hags. etc. 
dEvertDate(1400) As Double Hsr or dose days in order ot first taken to most recent 
byteEvertType<1400) A* Byte 'value -Oititis a dose taken 

'value « ; if data event is a dose command change 

•value *2if user entered entered 
sUserOata 1 (1 400) As String 'user entered data in the first column of the gnd 
sUserOata2(1 400) As String 'user entered data in the first column of the gnd 
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sUserO»U3{1400) As String user entered data m uie first column of the gnd 

sClock As String '{2 bytes) 10 minute resolution "OOOO' = I em on first dose aey. 

IDevicetnitDate As Long date the device started 

dDevteeRefDateTimo As Oouble date end time that etl events ere referenced to. 
sBstteryChangeTimer As String '(2 bytes)39ttery change timer, in 10 minute increments 
stoaeLockoutHours As String '(1 tytei Hours to lockout dosing after a dose is taKen 
bEfrorFatal As Bo olesn true if this ffeg was set in me returned ftags string 
bEnorNonFatal As Boolean true if this flag was set in the returned flags smng 
bEnorOoseStee As Boolean 'true if this flag was set m me returned flags string 
bEfTonMcdRema Wng As Boolean true if this flag was set in me returned flags string 
bErrorMemoryFufl As Boolean true if .f»s flag was set ;n the returned Hags stnng 
bEroorBrownOut As Boolean 'true if this flag was set in me returned flags suing 
bEnoraExJst As Boolean '(1 byte) Bits ere set if various errors have occurred and have not 

00*0 corrected. A value of Vis normal (no errors). Errors 

'are corrected by either correcting me specific situation or 

'resetting & reloading me cosing parameters 

30»T if fatal system failure 

Bf =1 if nonfatal system failure has occurred 

"82*1 if error has occurred in Dose Size Vdume 
. 'E3»f it error has occurred In Supply Volume value 

'S4* 1 it compliance memory is near full 

'B5*1 it brownout (law voltage) occurred 

aUstOownloadOate As Oouble -date of lest data retrieval from device 
End Type 

Public PAT.OATA As Device DataSUuct 
Public TEMP.OATA As DeviceOataStruct 

Public gsDrugNaroes<25) As String -names of drugs used to populate the list boxes on dialogs 

Public gsOryanNames(25) As String 'names of gsOrganNames used to populate me est boxes on dialogs 

Public Const glEVENT OOSE TAKEN - 0 
Public Const glEVENTloOSE'CHANGEO - 1 
Pubflc Const glEVENT_USER DEFINED • 2 



Jhesa value* mdeate me string position (returned from me device) where each element 
begins. This ts the string mat is returned when e request for 'etl memory 0 is sent. 
See ebove structures for more detail information about format 
PubPc Const OATA.BEGJN DOSE SIZE « 1 '1 byte 

Pubflc Const 0ATA_BEGINJ)OSE~INTERVAL1 = 1 • 2 ♦ 1 1 eyre 

PubOc Const OATA_BEGINOOS E INTERVAL2 » 2 # 2 ♦ 1 '1 byte 

Public Const DATA.8EGIN DOSE INTERVALS » 3 • 2 ♦ 1 '1 byte 

PubOc Const DATA_BEGIN_D0SE~INTERVAL4 • 4 • 2 ♦ 1 7 bvte 

PubBc Const OATA_BEGIN_DOSES PER DAY « 5 • 2 ♦ 1 'J byte 

PubDc Const DATA_B EGIN_OOS E CONVERSION • 6 • 2 ♦ t 1 byte 

Public Const OATA_BEGIN_DOS E.LOCKOUT HOURS • 7 • 2 ♦ 1 '1 byte 
Pubflc Const OATAJJ EGtN.DOS E SCORE DAY POINTER « 8 • 2 ♦ 1 7 oyfe 
PubBc Const OATA_BEGIN_MED_REMAINING • 9 * 2 ♦ 1 7 owes 

P^^^SIS^^TJ 1 * 20 7 bytes dock starts at 1am on first dosing day HO min increments) 

PubOc Const OATA.B EGIN.BATTERY CHANGE TIMER • 1 3 • 2 ♦ 1 7 bytes 
Pubflc Const OATA.B EGI N.ERROR FLAGS • IS* 2* 1 1 byte 

Public Const OATA.BEGIN^PREV.DOSE.PARAMS - 16 * 2 ♦ 1 76 bytes of cony ofprev dosing params 
_ m tund tor error checking internal to dispenser) 

Pubflc Const DATA.BEGIN.KEY.8ITS = 32 ■ 2 ♦ 1 'activation of keys on device 

PubBc Const DATA.BEGINLtFE.COUNT - 33 • 2 ♦ 1 tS3 at 33. MSB in U 

s^cceSS DATA - BEG,N - UFE - COMPLET,ON ' 35 "2* 1 when IL'e cycle, s programmed. «f when Sfe test completes 

2^2iS2-^ PEN ^ ON - FACTOR 8 36 • 2 ♦ 1 -values from 64.192 (128- 1.0 facton 
Public Const DATA.BEGI N.S ERI AL NUMBER • 36 • 2 ♦ 1 '10 bytes 

K£ K?^122-SS2!Jl ' ? # 2 # 1 '* byt9S «P>**««*«*«xy1D l names 

SJ2-2bSu-^!I2J5 35 64 " 2 * 1 cww ofpatientfpharamcy ID S names 

d^S ?S 2 A «-S!S' N - CUSTOM3 " 60 * 2 41 * ?a "I™* of paoentfpheramcy ID & names 

pic * 2 * 1 ™ "P**"^^*> « names 

Public Const DATA.B EGIN SCORE ■ 1 1 2 • 2 ♦ 1 74 bytes 

Pubflc Const OATA.BEGIN.COMPLIANCE.CHECKSUM « 1 28 • 2 ♦ 1 7 bytes Includes compliance pointer and data 
Tup to data word 1 before data pointed to by comp pointer meranocara 
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PubHc Const OATA_BEG1N_COMPUANCE .POINTER « 130 • 2 ♦ 1 '2 byres pants to nect location atfr end of current comptoocT 
'base value - f 32 iQiOCS4) 

PjWcConst 0ATA_BEGIN_COMPUANCEJ)ATA - t32 * 2 ♦ 1 *-f 900 bytes max. *msy o/ 2 byte values for dose compliance 

"Clock time vetoes (in 10 minutes resolution from start when each dose 
'was taken. Represented by values 0-65279 (0-OxtetT). Each dose time 
Is changed via We Set Mode', a value between CxffCO and OxffcS is wntten 
Ww> the LSD byte representing the dose size. When compliance memory is 
cleared, the current dose size is always wntten as the first location in 
the compliance memory. 



Public Sub ChangeBatteriesRequestQ 
Olm r As Integer. lErrorCode As long. *MSG As String 

.MSG * "You should continue only If you sre replacing the batteries in the device." 
sMSG » sMSG ♦ This ensures that the battery time counter win be accurate • ♦ vfcCnJ ♦ vbCrU 
sMSG - sMSG ♦ • Did you just replace the batteries or are you about to change them now?" 
r • MsgBox(sMSG. vbQuestJon ♦ vbYesNo ♦ vbDefaultButtonZ "Change Batteries-) 

tfr-vbNo Then Exi Sub 

gbKeepPolDngDevice - Fabe 'stop poHingfornow 

Watt 0.25 



E 



On Error Go To ChangeBatteriesRequest_Error 

r « Comm_Ser»dResetClockAnd8atteryOErrorCode) 
IfiEnorCode Then 

Enor lErrorCode error number 
Baa 



•MSG » "Replace the device batteries now and retrieve data from the device again when complete." 
r « MsgBoxfsMSG, vbExclamation, Xhange Batteries") 



End If 



Change BatteriesRequest.Exft: 
gbKeepPolOngOevice - True 'continue potting device 
Exit Sub 

ChangeBatteriesRequest Error 
DispliyEnorMessage lErrorCode . 
Resume Change BatteriesRequest_Exit 

End Sub 



PubHc Function Comm_CheckComm(lErrorCode As Long) As Integer 

Xjheck the device communication by sending a command and wasting for a reply. 
V no reply hi received, then return e 'false' dag to caller. 

Important Note: Que to the way the firmware was designed for the device. It seems not 
to return anything if the command is in error. This is not good because 
■ not toow whether or not a fatted reply is due to a back cable, incorrect comm port 

or settings, etc Hopefutytn a future version, the comm checx can return some sort of 
enarecter to indicate that a common byte was received, but could not be interpreted correctly. 



Dim eOut As String, sChecksum As String, sin As String 

J 001 * "fP" this is toe code for checking communication with device 

CreateChecksum sOut, sChecksum 'calculate a checksum 

sOut - sOut ♦ sChecksum ♦ V 'append checksum and ending string identifier 

If Not rhrtMalnXommDevlce.PortOpen Then frmMam.CommOevice.Port Open • True 

J**°T n * u * v * Tnje 'prevent other procedures from communicating with device 

mnMa!n.CommOevteeJnputLen « 0 'clear input buffer 
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IBxwCodt.O 7»SM«7o,co<je 

*w DO 

□ If gbCcmmTimer£jrpired Then timer event «-« m — 

^uoio wnvn^ecKComm.Ejcil return t0 eating procedure 

DoEvents 

I Loop UntD frmMaln.CommOevtceJnfiufferCoum > o . , 

oum * 0 .'Oop otf a rep/y is received or timeout occurz 

stn « frmM a in. Co mm Device. Input 75-*,. . 

•co/nm« oA * S response /rom ««/pofi 

If tin . V Then Comm.ChecJcComm * True vwen, weces , tQ „„„ 
Comm_CheckComm Ex ft - 

STeS^r ^ ^Co^D^Pon^n - F.lse • Oose the „„„ „ 
QbCommBusy » False >ese<*a" 
End Function 



r 



■Gummtylnto WW, ngnumSZE, ""^ "* » »*y * pvding 

■R«um lust it no npiy .„« «/ /erortjotf. ft, 

.^JM-COW- TIMEOUT It no ^ (romT^vK,. 

error coda « 0 tt eomm is tlreacy busy. 

Tffspty. then return number of characters received 

•Oos* comm port once a reply is receivers or if en error occurs. 

Dim ilJKtBufre/Count As Wager, r As Integer 

On Error Go To Comm_GetOevlceRepty Error 
gbCommReptyP«nding»Tiue 'set burn, a*» 

IhiiMalruMousePointer - vbHourglass Y * 9 

•Open comm port m case it is cfosed 
'prevent device unavailable error 

<^_Co mM , P onO„yJ^« ftn^Co^O^cPCOpen . Tl« op,^ 
"Wart for first char to arrive 

Tfmer even* sets tfcj to tn;e 
JfSbCommTVn.^ n»n E/ror ERR_COMM_TIMEOUT ^ m ^ „ ^ 

•fi/sf char has been received 
"Wait tor all data to arrive 

iLastSunerCount » -i lnU Dfjffcr f f 

DoEvenU 
Loop 

L00p »' characters are still coming in 

'AO data has arrived or time has been too long 
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r ■ ftTnMain.Comm0evlc«.tn8uffefCount 
sRepiy « frmMaJn.CommOevtc«Jnput 
CcrranGetDevteeReply • len(iRopty) 


'get character length 
'road stnng from buffer 
'return buffer length to caller (- checksum} 


LiL] 



Cornrn_GetDevtCBRepJy_Extt: 
prevent device una vaitaote errcr 

If fnnMatn.CommfJevtee.PortOpen » True Then frmMato.CommDevlce.PortOpen * False 'Cose pon if open 

frmManvMousePoinler • vbOe fault 

On Error GoTo 0 dear error status 

gbCommReplyPending «= False reset pending /lag 

gbCommBusy » False vesef busy flag 

Exa Function 



Comm^GetDeviceRepr/^Error 

lErrorCode « Err 'return error code to caller 

"Resume 0 tor tasting only 

Resume Comm_GetDeviceReply_Exil 
End Function 



Public Function Comm_ReadFirmwareVereton(DataStruct As DeviceDataStruct, IReturnError As Long) As Intea 
Dim sOut As String, sChecksum As String, sin As String, lErrorCode As Long, r As String * 



sOut ■ "Vv" this Is the code tor version number 

Create Checksum sOut sChecksum 'calculate a checksum 

sOut » sOut ♦ sChecksum ♦ T 'append checksum and ending string identifier 

If Not frmMaJn.CommOevlce.PortOpen Then frmMaln.CommDevice.PortOpen ■ True 

frmMain.CommDevice.lnputLen « 0 'dear input buffer 

frmMalaCommOevice.Output « sOut 'send stnng to device 

t » Cornm_GetUevteeReply(sln t lErrorCode) 

If lErrorCode • 0 Then 'cwnm was recerVed 

r - Validate Che cksum(sJn) 
If r Then 

DataStructaFlrmwareVer • leftS{sln, len(stn) - 5) 'pat string in global array 
CommJ*eadFirmwareVersion ° True "return success to caBer 
End If 



_ Else 

IReturnError » lErrorCode 
Disptay€rrorMessege lErrorCode 
_ End If 
End Function 



Public Sub DisplayCommError(SourceFoiTTi As Form) 
gbCoramOK « False 

SourceFomrlmgCommStatusPtcture ■ SourceForm.imgRedUght 
SourceForm.lblCommStatus « "No Device Found" 

"Play disconnect sound and show status visually 
'Set properties needed by MC/ (o open 
Wfth SourceForm.MMC©ntrol1 

.Notify » False ■ • 

.Wait • False 

.Shareable « False 

.filename -App.Path ♦'VrobOetectVoice.wav 

•Open the MO WaveAudio device 
.Command « "Open" 
.Command * "sound** 
.Command ■ "dose" 
End Wfth 
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End Sub 



Public Sub DisplayCoinrnOk(SourceForTn As Form) 

■play connect sound and show status visually 
'Set properties needed by MCt to open 
gbCommOK ■ True 
With SourceForm.MMContrull 

.Notify • False 

.Wait * False 

.Shareable • False 

.filename = App.Path ♦ "\m0rsecode.w3v" 

"Open the UG Wave Audio device 
.Command • "Open" 
.Command » "sound" 
.Command » "sound" 
.Command * "dose" 
£nd With t . 

SourceForm.lmgCommStatus.Picture » SourceFormJmgGreenUght 
SourceForm.(blCommStatus * •Device Ready' 



Public Sub DisplayErrorMessage(IErrorCode As Long) 
OtmsMSGAs String 

I Select Case lEnorCode 

Case ERR_COMM_TIMEOUT 

sMSG » "Mo response was received from the device to the command just Issued. Remove the device from the communicator and 
S reinsert ft to ensure that It is seated properly." 

Case ERR_COMM_CHECKSUM 

sMSG » "Data retrieved from the device is corrupted. This probably occurred during transmission. Please read the device again." 

Case ERR_COMM_B AD RESPONSE 

sMSG * "The device did not interpret the command property." 

Case ERR_NEWER_HOST_SOFTWARE 

sMS G « "The device was'previousty programmed with a newer version of this software. The data can not be retrieved." ♦ vbCrU ♦ 
V vbCrU ♦ "Please obtain an updated version this software." 

Case Else 

sMSG - "An error was detected while communicating with the device. Please try again." ♦ vbCrtf ♦ vbCrLf ♦ Error${lErrorCode) 
End Select 

MsgBoz sMSG, , App.ProductName ♦ " Comm Error - " ♦ CStrfJErrorCode) 



End Sub 



End Sub 
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Public Function GetDrugRefNumber<) As Integer 

find the index to the organ name being using in the global structure 
Dim i As Integer 

CPoriMTo U Bound (gsOrugNames) 
N ^ l j C * ie<PAT - DATA - ,Dn, 0) = LCase(gsDrugNames(I)) Then ExR For 

GetDrugRefNumber * I return ret number to caller 
End Function 



Public Function GetOrganRefNumberQ As Integer 

rind the index to Ore organ name being using in the gobs! structt 



Dim I As Integer 

For I o t To UBound(gsOrganNames) 

|f t.Ca5e(PAT„DATA.sOrgan) « LCase(gsOrganNames(i)) Then Exit For 
Next i 



GetOrganRefNumber » I Varum ref number to coffer 
End Function 



^ ^ te ^ UnC ^°I? ,r l tcr PretOosingData(DataStruct As DeviceDataStruct, ByVal sData As String BvVal 

* ^rL C «Z?2 ByVal IChcckSum As ^ng, lErrorCode As Long) As TrrtegeT 9 ' ^ 
Terse apart the dosing data that ts passed here and put Into global structure 
'Each dosing event is 2 bytes in length, 
'pie checksum is passed here for comparison to the string. 
'The checksum includes the pointer bytes which ts why it is passed in. 

Dim 'Temp As String fl.owByla As Integer, MByte As Integer, ICurrentOoaeAmount As Long 
Dun r A« Integer, iposiUon As Integer. (Count As integer, ITemp As long 
On Error GoTomterpretDosingOata_Error 

F °lC^^iirI V% n(SOat3) Stt? 4 **" 2 heX byt " t0 **" 9Vent 

dCneckSumTaily • dCheckSumTaOy ♦ ILowByte 'add to checksum 

i^lc CU ? r4H " * MW$(sOata, (position ♦ 2. 2}) 'get second of the 2 byte hex vatue 

^SS^SR: dC ^<* Sum ™y ♦ IHiByte 'add to checksum * 

lfWI8yt«-2S5Then Indicates a dose chenge 

DataStnjct.byltEventType(iCount) * giEVENT DOSE CHANGED 

^^'' iE lT°^ C T t} ° CLnStO^UStmctdEventDateOCouot - 1)) get Ofe Imm tow «,» 
' nw f* me very first dose change 

If DataStructdEventDateOCount) « 0 Then 

DataStruct^EventDate(lCount) • 1 
End If 

~ This is a dose 

OataStructbyteEventTypeflCount) ■ giEVENT OOSE TAKEN 

nent^lll^?^ I ,CV r nlD °f Amounr conven from ml to mg: this is a new dose size change 
n ,T £^! n B J tC) 256 * fLow8 y te *»• >* '0 wferva/s swce ffrsf dose day 

End M ? StrUctdEvent0ale < iCount ) B OateAddCn-. ITemp • 1 0. Data Struct. dOe vice RefDateTtme) 

Next 



(Z 



DataStnjcLiEventData(0) « iCount 'put the total number of events in the 0 element ofUst 



dCheckSumTaOy * dCheckSumTaBy Mod 6S536 
If dCheckSumTaJly * iCheckSum Then 
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InterpretOo sing Data * True "return success to cafler 
Ebe 

lErrorCode « ERR_COMM CHECKSUM 
End If 



Comm-bas - InterpretDosingDala 

__________ ^ 



lnterpretOoslngData_Exit 
On Error Go To 0 
Exit Function 

InterpretOosingData^Error: 
lErrorCode » Err ~ 
Resume lnterpretDosingOata_Exit 

End Function 



r 



Public Function ValidateChecksumfByVal sData As String) As Integer 
look af tte data suing passed here end get the cnedtssm from the 
'end of the string. 

'sDATA should be a sting that was returned frcm the device. 

The lest char in the smng is a tsmunaoon char preceeced by 4 bytes ct checksum. 

Dim sTemp As String, iByte As Integer, r As Integer, (position As Integer 
Dim ICheckSum As Long, ICheckSumTally As Long 
On Error GoTo Validate Checks um_ Error 

r ■ Len(sOata) 
For Iposition « 1 Tor-5 
iByte » Asc<MU»(sOata, (position, 1)) 
Tflyre « Clntr&hT * MidStsData. iposibon. 2)1 

ICheckSumTafly » ICheckSumTally ♦ IByte 'add to checksum 

Next (position 

ICheckSumTaBy « ICheckSumTaOy Mod 65536 

•Temp « -4H- ♦ Tj- ♦ Mid$(sOata. r - 2. 2) ♦ MtdS(sOata. r - 4, 2) 
ICheckSum ■ CLng(sTemp) 

If ICheckSumTaliy » ICheckSum Then ValidateChecksum * True 'pass success Bag back to caller 

VaJWateChecksum_Ex(t: 
On Error GoTo 0 
Ext Function 

ValidBteChecksum_Error: 

Resume VeJidateChecksum_Ex& 

End Function 



Private Sub lnterpretErrorFlags(DataStruct As DeviceDataStruct, ByVal IFIagsByte As integer) 
•Break out the bits of the Bags bytes passed here. 
Tut the results into the grope/ arrays 

if arty Sags exist then set this to true 

If IFIagsByti Then OataStructbErrorsExist « True 

Terse out Hags separately 
OataStructbErrorFatal « (IFIagsByte And 2) 
OatoStruct JjErrorNonFabl » (IFIagsByte And 4) 
DataStructbErrorOoseSize ■ (iFlagsByte And 8) 
DataStiucUErrorMedRemaining « (iFbgsByte And 16) 
Data Struct^ ErrorMemoryFufl « (IFIagsByte And 32) 
DaU Struct bErrorBrownOut * (IFIagsByte And 64) 
'remaining upper 3 bits not used at present 

End Sub 
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□ 
G 



^L^?^ DeviceDataStruct, IReturnError As Lr>n„i , 

Dim .Out As String. sChecksum As String, sin As String. lErrorCode As Long, r As String * S L ° n 9) * 

On Error GoTo CommJUadErtireMemoryContents^Error 
Erase DstalnMemory Data Struct 

*° Ut ,"'^* _ W* » the code tor reading entire memcr/ 

crtaiechecksum sOut. sChecksum catcuiate a checksum 

sOut - sOut ♦ sCliecksum ♦ T acpend checksum and endmg sving identifier 

If Not IrmMainXofTunOevtce.PortOpen Then frm Main. CommOe vice. PortOpen = True 

frmMaiaCommOevfce.tnputlen « 0 'dear insist Duffer 

frmMaiaCorwtipevice.Output • sOut send suing to c*»c« 

r « CcmmJ^tOeviceRepry(sln, lErrorCode) 
" ,fr r^^t.Cr«cksum<sln, ™ " c ™< Shouid be st ieast this many bytes 
Ifr* False Then 
IRstumErrof ERR_COMM_CHECKSUM 
Exit Function 
End If 



r » ParseMemoiyCortferts(DataStnjct. sin, lErrorCode) 'parse out the jinnc 
IMErrorCode Then * 
I Return Error • lErrorCode 
Exft Function 
End If 

Comm^ResdEntireMemoryContents « True 'return success fo caBer 
DstaStfuctdLsstOowntoadOate » Now 
gbPaUentOstsNotSaved • True 'set this /fag to true 

Else 

IReturnError « lErrorCode 
Exit Function 
End If 

r ■ Corom_ReadFirrnwareVersion(DataStruct. lErrorCode) 
If lErrorCode Then 

IReturnError - lErrorCode 
End If 



Comm_ReadEntJreMemoryContents Exft 
On Error GoTo 0 
Exfl Function 

CommJUadEntlreMerrioryContents Error 
IReturnError « Err . 

Resume Comm^ReadEnHreMemoryContents Exit 



End Function 
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Public Function Comm_SendResetClockAndBattery(IRetumError As Long) 

Resets the device dock to an offset that represents 1:OOam 
'and risers rhe battery timer to zero. 

Dim sOata As String, sOut As Siring. sRepty As String, sChecksum As String 
Dim f As Integer. lErrorCode As Long, JTemp As integer 

JTemp « Ctnt(Format(Now. *hh")) 

11 JTemp = 0 Then FT emp o 24 'mrdnght 

iTemp « (TTemp . 1) • 6 ca/c number c/ 10-mtnvte penod ' hours 

'l!! np * CW((FormatS(Now. 'nn") - 5) / 10) 'ca/c number of 10-min peaces in th,s hour 

sOata > CStr(Hex(ITemp)) 

If Len<sOala) < 2 Then sOata « "0" ♦ sOata 'ensure stnng ts ahvays 2 bytes long 

sOut ■ W ♦ sOata 'add dara sfcwg ro ccmnwwd 

CreateChecksum sOut, sChecksum 'calculate a checksum 

sOut • sOut ♦ sChecksum ♦ T 'appena checksum ana endng suing identifier 

Comm.SendOataToOevtee (sOut) 'send stnng to comm port 

r « Comm^GetDeviceReply(sReply, lErrorCode) 

- IfsReply ""TThen 'string was successfjltv Interpreted bv donee 

Comm.SandResetCtockAndBattery ■ True 'return' success to caller 

- ElselfsRepty » TThen 'string was not interpreted properly 

IRetumEmiraERR COMM BAORESPONSE 

- Else 

!Re turn Error ■ lErrorCode 
. End If 

End Function 



>ublic Function Comm_SendCustornData<DataStruct As DeviceDataStruct, ByVai sLocation As String. (Return 

There are 4 locations in the device, each containing a 16 byte string. U 
There first location Is usually reserved for Patient ID. 
'Any suing can be contained In any location. 
"Data is taken from the globe! structure 

Dim sOata As String. sOut As String. sRepty As String, sChecksum As String 
Dim r As Integer, lEmwCode As Long, sCustomOata As String 
Dim I As Integer, sTemp As String 

Determine the eppropriate command for the location of the data to be stored. 
There are 4 fields m the device containing 16 characters each. In the original 
'device design, this was intended to contain 4 sepeate pieces of information. 
•The client has now decided that some fields are too short and others are too long. 
Thus, the fields are combined to be one string of 64 characters. 

"Data Structure Rev level ■ gtLEN_REV_DA TA STRUCTURE 

'Patient name « gtLEN PATIENT NAME 

ID • gS-ENJtD 

"Drug • gtLEN ORUG 

TX Center * gLEN TX CENTER 

-Organ « giLENjORGAN 

'Create a 64 byte string from the various data elements to be saved 
This string identities the format of custom informeoon. If die format 
'changes m a future version, then this ID can be used to determine which 
•version of the software saved the info to me device 
sCustomOata = gsREV_DATA_ STRUCTURE 

•Save die 2 digit number that represents this drug. 

To save specs, a numehcal Index of the Organ neme is stored in the device 
I e GetDnigRerNumberO 
sTemp ■ CStrfT) 

If Len(sTemp) < 2 Then sTemp • TT ♦ sTemp -force code to be 2 d»g#» 

sCustomOata ■ sCustomOata ♦ sTemp 'concatenate result to outbound stnng 

Save the 2 digit number that represents this organ 

To save space, a numerical index of the Organ name is stored in the device 
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aTemp « CStrfl) 
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E 
E 

E 



If Un(»Ttmp) < 2 Then aTemp » TT • aTemp code to be 2 tfofe 

aCuetomOata - aCustomOata ♦ aTemp ^cw»c D w/o9b 

•Tamp * OataStructsPatienttD 
IfLenfaTemp) > gHEN ID Then 

*sssi ssseb figy* 

^aTemp . .Temp ♦ SpaceSfeiLENJD - UnfaTtmp)) 'name « foe sAo/r to <W *e tfeaonatatf /engm 

aCustomOara • aCustomOata ♦ sTemp ' concaienafe «s«* ro outoov.n- mrihg 

sTemp » DitaStructaTxCenter 
lfLen(tTemp> > gU.EN_TX_c ENTER Then 

^.T-np . .Temp . Spaee$(gitEN_TX_CENTER - Un<»T.mp» v,,m. * too *oo* to • toe cWp,*,, 
sdstomOM . sCwton.D.1, ♦ ,T«np eooeonmoto „«« to outoeoaT *to, S 

E^r" " ' T,mP * ^^'W^-P'ATTENT.NAME . Un(,Tomp» Vam. « too *»* to /W to. m^w toojto 
sCustonO^.sCu^omOato^Twnp -eooeatonw./wort to outooooo ,»/,(, 



'Asm mite m» string ro ce senf 

— Select Case aUcatfan 

Case OATA_BEGIN CUSTOM 1 

tOut» W ~ 

aOata • Mld^aCustomData. 1. 16) 

Caaa DATA_BEGtN CUSTOM2 

aOut-W 

aOata •Mld$(sCustomOata, 17, 16) 

Case DATA_BEGIN_CUSTOM3 

sOut «"Yy* 

aOata • Mld$($CustomOata. 33. 16) 

Caaa OATA_BEGIN_CUSTOM4 

aOut • ~Zz m 

aOata « Mld$(»CuatomOata. 49, 16) 

— End Select 

5t£ ^IZZZ?** * mit * d t0 1€chm 9naun to""*** 1st I6ch,n 

S?^1^^ ,Check,um * eneexsu/n 

Comm w^rS^Sr * T checksum en<3 ending sinng identifier 

f "^-^^^W«RepIyJE«fCoda) 
~~ !E jZISL **** ivas sx/cc«s/U/y interpreted by Cevce 

~ ^1" F ^!TJ^" tvaa no/ intetpnted property 

IRetumEm>f«ERR_COMM_BADRESPONSE 
— » Else 

IRetumEnw « lEirorCode 

— End If 

End Function 
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^^TllllSi 0 " Comm r? endDosin SParanis(DataStruct As DeviceDataStruct, IReturnError As Lon«i 
Sands the Cosing parameters from the global secure to toe device L °ng) 



'Structure: 'Ddttuuvvwwxryyzzmmss 
'Response: "J" 



. J™? « i 0 ^^ ^""hours ro ?,eve.-:r -osrng after* tfose « raken. P . 

♦ the oet*.. The ASUI vetoes ere snnply added together m en 6 hit sum. then one « subtracted (modulo 2551 COmm ° na 
Oim iOata A» Integer, eOata As String. »Out As String, sRepty As Strino 

On Error GoTo 0 

sOufDd- -put commend in stnng 

'Get Dose Size in oump ticks 

sO^i^^s^" *° ala 'V*** '* nsvr * «Wff« 2 ft/fes tong 

llastlntervalSet « 1 .,;«> em is the ret time for the first dose 

"Get Oose intervals in hours 

' F °IrL*J Jn oWjucDow,Time * ^ •maxflosespe/tfaK 

* T_ . _ to °* conversion error, reset temp value 

— ,f ^rSf!^^^" 1 ^® * 0 ™« '» ™<7*'ve flumoer/nrfcefes no tfme «es set 

IDat. • IOata . JUsttntervalSet W 3 ome /s /e/eoVa for he last interval that was set 

change time to midnight 

If Data < 0 Then iOata « 24 - Abs(lData) 

- ErJnf SUnt<,rV * ISrt ' Fo ^ tt ^ s ^^re«rib«<10oseTTme(i). "WO the next interval is relative to the last one thatisset 
tnVr?^^^ ve/ue to a hex shmg 

. Next I 

XSet number of doses per day 

^tl^ S ^^ S ^ ]D0UaPf,t09 ^ -conuert VIA* to a hex stnng 
!m?M « soS" 3 V * SOtta Wt ^ys 2 bytes long 

"Get conversion value 

!f££»rin«rw,« , ~ 7n case o/ error reset temp value 

X5er Oose toc/Kouf houa 

* 7/1 c »«* <^ resef remp v»/ue 

^^^Strurt foseLockoUMours) get lockout hour from global struct 

loStl ^o2r n * "°" * 80813 ensurt * r,ng is ***** 2 byt <* ^ 

^eChecksum sOut sChecksum 'calcuUte a checksum 

sow sout ♦ sChecksum ♦ T -append checksum end ending string identifier 
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- ^RetumBror ^R^COM^BADRE^SPONSe" 0 ' intcrpreted P^P^y 

- Else 

IRetum Error » lEnorCode 

- End If 

End Function 



^^.^^^^^^ As DeviceOataStmct. .RetumE™ As Long, As .nteger 

r-Comm.GetOevlceReptytsRepfy.JEn^rCode) ^ 

- IfsReply «VThen -«nng was success/U/y mferorefetf by device 

- ^i^^ TJ^ n 'Stnnff was not intend prvperly 

IRetumError = ERR^COMM BADRESPONSE ep»y 

- Else 

(Return Error « lEnorCode 

- End If 

End Function 



^5£S£? ^ rtHexStri "9ToAscii ByVal sData, sConverted As String) 

* eVU * * w ^ « enactors. 9 ' 

5</cfl scrnps art tfenuflra paoeflf name, sen*/ m/mber. ere. 

DfmsTemp As String. I As Integer, fTemp As Integer 
On Error Resume Next 

^Converted « - Wwwf arty old string 

for i - 1 To Len(sOata) Step 2 



Next I 
End Sub 



SZ r ™^„ $Data - ^ * *»' ' 2 "Kfe from stm,g 

.Convarted « .Converted ♦ sTemp ****** ro e**f»g mng being built 
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____________ ^ 



Private Sub CreateChecksum(sOut As String, sChecksum As String) 

The smng 'sOur wOl 6+ sent to m# dance by another procedure. Before it a sent, 
this procedure calculates * checksum end returns it to the celler 
'Return the ASCII representation of foe checksum value. 

Dim I As imager. ICheckSumTaOy As Long, IChecksumByteLow As Integer 

For I • 1 To LenfsOut) 'calculate checksum 

ICheckSumTally » ICheckSumTally ♦ Asc(MtcJ5<sOut, i, 1)) 
Next I 



ICnecksumByteLow « ICheckSumTaOy Mod 2S6 

IChecksumByteHigh « ICheckSumTally V 256 'no: being using by the device 

sChecksum - HexflChecksumByteLow • 1 ) 'checksum is the 'one's complement value or a r.vo's complement checksum' 
'value must always be 2 chars 

If Len(sChecksum) < 2 Then sChecksum « TT ♦ sChecksum piece a leecng t}' in front of checksum 

End Sub 



Public Sub EstabiishOeviceCommf) 

This procedure continues to try and establish communication with the Device 
'until H succeeds. When successful, control is returned to the catling procedure. 
The purpose of this procedure is to eQow the user to by cable changes, device 
'movement etc. without having to continue pressing keys on the keyboard. 

Dim r As Integer. lErrarCode As Long 



r 



OuefyOevtee: 
r » Comm_ChsckCoinm(IErrorCode) 
If r<> True Then 



DoEvsnts 'allow other \Mndows events to be processed, so we don't lock up the computer 
WW 1 \vaJt en additional amount of time before trying 



GoTo Query Device try comm again 
End If 



End Sub 



Function CommJnitiaIizeCommPort() As Integer 

'Gef the Mtol values from INI file and 
Initialize device comm port settings 

Dim (Reply As Long 

Const sSection » Xommurecattons" 

*Gef the amount of time needed for a reply to be received from the device 

?J!?!J^!? pW3eVWl " cl ^GeUN^ e mng(csApplniFUeSpec. sSection, -Device Response Wait". "SO")) 
f piDevteeResponseWalt < 25 Then giOe vice Response Wait • 25 'set a minimum delay time 

If giOtvtceRetponse Wat > 500 Then giDeviceResponseWait « 500 Kemp upper timt 

frmMain.CommTlmer.lntervaI « giDeviceResponseWait ser up the timer 



'Get the comm port speed settings 

glCommPort » Ctnt(GeUNlSettjng(gsApplniFDeSpec. sSection. "Port*. f» 

If glCommPort « 0 Then giCommPort » 2 set a default of comm 2 if nothing isin the Hie 

gsCommDevteeSettmgs « GeUNISetting(gsApptntFileSpec. sSection, 'Settings-. ~24Cnj\fiT) 
'prevent device unavailable error 

If IrmMainXommDevice.PortOpen ■ True Then IrrnMain.CommOevice.PortOpen « False 'dose port it open 

fjmMalfL<^mmOevrce.Settlngs ■ gsCommDevlce Settings 
fnYiMafn.C©mmOevice.C©mmPort * CSuXgtCommPort) 



srf. 
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__________ ^ 



frmM«in.CcmmOevk».!nBufferSite • 1024 
frmMaiaCommDcvtce.lnputLen ■ 0 
Comm_lniti»ttz«CommPoft » True 



CommJni8afi2eCommPort_Ejrit: 
Exfl Function 



'return success to caller 



CommJnltUrceCommPort Error 

Comm JratiafeeCommPort -Err 'return tmjr (Q C30er 

On Error Go To 0 

Resume CommJnitiaUzeCornmPort_Exlt 
End Function 



Sub Device_OnComm() 

TWs procedure is called by the OnComm evenet of the comm control located on 
TrmMasn. This * so that the code can 6o shared betiveen eppScabons. 

Dim r As Integer, $Temp As String 
r ■ frmMain. Comm Otvtee. Co mm Event 



ltr*MSCOMM_hH_KXOVER Than 

over run error occur** UsusaHy happens when getting events. 

CJOt Sub 

End If 

Itr * MSCOMM_EV_EOP Then end of file flag received 

^&oV Sub vwio cares. Happens during receipt of events 

tfr * MSCOMM_ER_BREAK Then -break signal received 

Exit Sub 
End It 



Ifr » 3 Orr . 4 Or r » 5 Then fts. xon xoff. CD error 

Exit Sob 
End If 

MsgBox 'Unexpected error occured with the device. Please try again. • . -Comm Event . ■ ♦ StrS(r) 
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Comraba s - ParseMemoryConlents 
^ffTemp Than Wen^tScocaO.t, OaUS**, ,Temp, CniOT.mp, ^ ow , * e KCfes Mpl ^ m ^ 
'Gh error flags 

«Temp ■ MkJS(sAUData, DATA BEGJN ERROR Flags 21 

If LanOTtmp) > 0 Then InlerprefcmtfFtoas OatoStaS : vJ?.T i 

««wr »gs oatastivct. Val(sTemp) v»,s # OU f */>e , nt ? save to gtcbet structure 

vef Metfcaoon remaining m device 

•Get Cose Uc*ouf«ou« ' 

•GarOosespefday 

Get Dose Rtsctutizn 

«remp-^HO-*Mkl$(sABOata t OATA BEGIN OOSE conversion ^1 
OataSlwctaOoaaResolution « C5lr(CS^(sWp), ' ' * 

"Get Dose Intervals 
slastlntarvaJTlme • "1:00" 

'Got Oose Interval 1 (alarm time) 
- .r T r&^ ,(SA " 0a,i - °* T ^"M«.0OS OTRVAtl, 2, 

_ Q ^ sln *=" p ««*«aO°«r l n«(1) . Tm«V»lu e ( 5 T. n ,p) 

_ En ^«»»~=tdP'««rtb«IOo«r 1 m.(t) • -t to , WJSrte tf Wtf 

•Gtt Oo» l/itov* 2 ft/a/m tfm.j 
. «™W™TL7 i{tA ^ MT *-BE«N_D0 5? .,NTERVAU. 2) 

S^^^. C m ^' (,T,mp) - «*■'»•— «■»> ». f0 ,. Mjm 

_ ^* S, ~ et,,P,Me *«»0««r«ne(2).TIm«V,lue<.T«mp) 

. J£u* nA,1P " :Sa *" SD ' K * Tmtm * - 1 «* «« no ton. w„ 

ttrtOo** Inttrvl 3 Mtm time) 

C«f Doss Innrvtf 4 (Harm ttmt) 

^JS^r*" 0 *- ^A.B EG ,N_0O SEJN T E RVAL4. 2, 
E( 0iHStnirt.dPri«»ib«i00Mr»n»(4) . Tim.V»tu.(.T«np) 

Ei 0aUSauetdP reS aibed0o»r m „(4) « -I Wj v* ue (mfiew „ m . ( n0 3m . „„ „ ceiVe< , 
'Get Dose St2$ 
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43 



E 



sTemp«-&HO"*MidS(sAJlOata.0ATA BEGIN DOSE SIZE 2) 
lflsNumeric<8Temp)Then ~ " ' ' 

^DaiaStructsOoaeStee - CStr(CSng{sTemp) / 40 • 100) 'convert from mg to ml 

0ataStnjct.sOoseStee * ~ 
Endlf 

'There are 4 Mas in the dtvtce containing 1$ zZ:rac:ors each. in the originet 
-device design, this was intended to contain 4 senate pieces of information 
The cSent has now decided that some folds are too shon and others are too for.g. 
'Thus, the fields are combined to be one string ztO-i characters 

'Patient name - giLEN JP A TIENT NAME 

70 • giLEN tD 

Drug « g*L£V DRUG 

TX Canter = gCSV. TX CENTER 

Xirgan « g&£N_ORGAN 

'Send a messege to the user if toe revision lew! is higher than the one 
this software is using to send custom data to the aevtce. 

'The user must upgrade to the current version is order to get accurate custom data. 
This code should atso handle any previous verstcns net saves data to the device. 

"Get Custom string 1 

STemp • Mid$(sAilOata. OATA_BEGIN CUSTOM 1, 32) 
CorwertHexSWngToAsdi aTemp, sConverttd 
sCustomOata « sConverted 

'Get Custom string 2 

sTemp » Mld^sAIIData, DATA_BEGIN CUST0M2, 32) 
ConvertHexStnngToAsca sTemp, sConverted 
sCustomOata ■ sCustomOata ♦ sConverted 

'Get Custom string 3 

sTemp ■ MJd$(aAnData, DATA_ BEGIN CUSTOMS, 32) 
CorwertHexStrtngToAsca sTemp, sConverted 
sCustomOata > sCustomOata ♦ •Converted 

XSet Custom string 4 

sTemp - MJd$<sAflOata. OATA BEGIN CUSTOMS 32) 
ConvertHexStrtngToAsci sTemp, sConverted 
sCustomOata ■ sCustomOata ♦ sConverted 

•puO apart the €4 char suing into its sub-components 

-Get the custom data structure revision level that was previously saved to the device. 

ff?* **! 5 '* Z°* tt * ** me ** *■ m ^ ««* mmor versions of the host software. 
iStarungtocatfon • 1 

•Temp « M]dJ(»AnDaU, IStortlngLocatton, gfLEN REV DATA STRUCTURE) 
ConvertHexStringToAscfl sTemp, sConverted 

cwsmm was Wreney saved with a newer version of software than this o 
if VsKsConverted) > g*REV_DATA STRUCTURE Then 

lErrorCode ■ ERR_NEWER HOST SOFTWARE 
^GoTo FarseMemoryContents w Exft ~ 

T^trmne the real name of the Drug by the reference number received from me device 

IStarUnotocabon • iStorttngLoca&m ♦ giLEN REV OATA STRUCTURE 

•Temp » Trfm^io^sCustomData, {Starting Locator!, giLEN DRUG)) 

f»V»l(sTemp) ¥ " 

If r > 0 And r < UBound(gsOrug Names) Then OataStructsDrug « gsDrugNames(r) 

^emine the real name of the Organ by the reference number received from the device 
iSlarthgLocabon ■ IStartingLocation ♦ giLEN DRUG 

V rim l MW$<sCustOfn0ata - Ktorti^cation. giLEN_ORGAN)) 
r * vai(sTemp) 

If r > 0 And r < UBound(gsOrganNames) Then DataStruct.sOrgan 3 gsOrganNames{r) 
iStartJngUcatJoo » IStartingLocation ♦ giLEN.ORGAN 
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OataStructsPetlenUD - Trtm(MldJ{sCustomOata. IStartlngLocation. gJLENJD)) 
ISUitmyLocatten « IStatfngLocaflon ♦ giLEN (0 

DataStructaTxCenter • Trim(MidS($Custom£^ta, IStartmgUcaUon, giLEN_TX_C ENTER)) 
IStattmgLocatten ■ ISrartingLocaUon ♦ giLEN 7X CENTER 

r - ParseOe8mString(Trim(Ml<JS(sCustomOate. IStartingLocation, giLEN PATIENT NAME)). sTempUstQ) 
0ataStruet.$PatlentLa8tName « Trim$(aTempUst(1)) ~ 
DataStiuct.«PilientFu3tNam« = TrfmJ(aTempUat(2)) 



'Get Serial Number 

aTemp • MJd$(sAHOata. DATA_BEGlN SERIAL NUMBER, 20) 
ConvertHexStringToAsci aTtmp. sConverted 
Oata Struct aSertaJNumber « Trim(sConverted) 
ParseMemoryContents » True 'send success to caller 



Paraa Memory Contents^Ext: 
On Error GoTo 0 
ExS. Function 

P arce Memory Cent enis_£rror: 
fdrci a checksum error here because any type of error is Bkely due to e checksum problem 
lErrorCode * ERR_COMM_CHECKSUM 
Resume ParaeMemoryContenta_Exit 

End Function 



Public Sub PonDeviceContinualiy(SourceForm As Form) 
77ms procedure continues to try end establish communication with the Device 
•unta It succeeds. When successful, control is returned to the catSng procedure. 
The purpose of this procedure is to altow the user to by cable changes, device 
'movement etc. without having to continue pressing keys on the keyboard. 

Dim r Aa Integer, bProceduralnProoresa Aa Boolean, (EnorCode Aa Long 

If bProce dure I nP regress Then Exit Sub 

U gbCommBusy Or gbCornmReplyPenoIng Then Exit Sub 

b Procedure inProgresa ■ True 'prevent recursive calls to this procedure 



E 



Query Device: 

Do Events 'allow other Windows events to be processed, so we dent lock uo the computer 

If gbCommOK = True Then 'no need to pcH as often if device was working the last time we checked 

Watt S wait an additional amount ofbme before trying 
Else 

Watt 0.05 'poll faster until a good comm is made 
End If 



I » N<»t gbCommBuiyAnd Not gbCommReply Pending Then 'poU only if po/t not busy 

If gbKaepPolBngOevice » Falaa Then Ex* Sub 

SourceFormJmgPoiOng.Visible • True 

SourceformJmgPolBng. Refresh 

r » Comm_Ciiec*Comm(lErTorCode) 

If gbKeepPoOngDevice • Faise Then Exit Sub 

j lfr» True Then 'comm is working 

dsclay status has not yet been updated 

If Not gbCommOK Then OtspiayCommOk SourceForm 

— Elae "comm is NOT working 

'dsptay status has not yet been updated 
If gbCommOK Th»n OtsptayCommError SourceForm 

End If 

End If 

Waif 0.05 'allow pcBing icon to be viewed 
If gbKeepPoBingOevice - False Then Ex* Sub 
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SourceFormjmgPofUng.Visible a False 

ir r • ERR COMM TIMEOUT Then 'sen* « . 

Msg Box -No response was reeled to TL^L ww mar no rep/y was rece/ve* 

End If ^ to,Wakeu P «■"»«* <™ »« «nt to the DosPro device. . Xommunicatlon Error- 



Hag has not been reset yet 

If gbKeepPoKngOevice Then GoTo Query Qevice try comrn egaw 
bProeedurelnProgress ■ False 



'Mow future caOs to this prcedure now that we are limshee 



End Sub 



PU c!^&^ *™ As String, 

V/ anorter command is m prosress We „ w >f ^ done 
If the flags have not oeen reset after this delay, tfren exit hoo anyway 
Jh,s prevents lockups IfWtte this loop in case then is a oSmSw/Him 
dOoA^adTlm. » DateAdd r «-. 5, COo K Now,) ^ 
Do \AW|« gbCommBusy Or gbCommRepfy Pending 
OoEvents ^ 
OoEvents 
Oo Events 



If CDbJ(Now) > dGoAheadTime Then Exit Do 
Loop 



nrnMalriCommDevtee .Output ■ sOut 



'cloer input buffer 
'send suing to device 



End Sub 



Private Sub SetCommTimertffime As Integer) 

-RVsTtoltoZ,?* ITim9 ft « P"*** ivrmouf tee tfmer bemg reset 

«»seffneornerfotfie«ferva/pessedff7. thenstertH 
Set the comm busy Sag, than return to caster 



frroMsin. Co mmTimer. Enabled » False 
IhiiMairtCornmTlmer.lntBrvaJ * ffime 
SbCommrtmeretpired - False 
ftTnMain.ComrnTlmer.Enabled » True 

End Sub 



"dseble timer while resetting ft 
'set interval 
'reset timer expiration flag 
'start timer 
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Comm.bas- SelCommTTmeT 



PubEc giFontOptSel As Intsgtr " ' '«* ^ ,p*»u, y MWP/fettW 

d^ C gS ! e,ectPrintPa 9« As String 

Private Sub btnPrinter Preview C!.vir d „ 

to*$aiectPaces.Show MOOAL '* m0r * °* e * P™' 

!Ir^II?/ 40U5 ' Polntef • vbHoumlass 
O^^pooungmprogres, 

gbPrintSpoofinglnProgfess jrg£_ *"**lp*G*s 



Ms other pecs that error occur** F .xc /Busf WMf „ ac 



Case 'Page' " ' — 

C#s* - 

Coining to do 

*Z£rTZ 9 ' *'2?*f»G° not a picture 
S^nntSpoohngJnP ngnss * T tva 
trmPnnt. ^Prtntert Action • m^.,,, 
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Prmting.bas- btnPrinterjVevietf 



LClttl 



End Sub 



'Mow burton to show 




* EufSub S «P * '?ne front ebcve 

ropc ffcm /»*r of the page 

Crtfrtar^ontStee ■ 12 
cPrinttre- _ 

cPrinter.PenCotar . hw*„. pe " 
cPrinter.V2 • cPrinter.CurrentY * so 



ePrtnter.Dnw « 2 
End Sub 



2*r*ctanpe 



^ Ai^^l'.^^^om.a. As S,*, 3 . lT , b)e A$ 

On Enor Resume Next 



String, sUst As String 



WtPigtPrepertiet 
fFontStee - 10 

VWhfrmP^tv.PrtnterT P * ffe 
JCt « 700 



- f uu 

♦ frmPrintpicLogo Width 



EndWRh 

'Print tnfomtoon Header 
With frmPrtntvsPrtnttft 



WO 99/35588 



PCT/US98/22830 



Printing.bas - PrintAllPatientsSummt 




.FontName » "Artar 
-PontBokJ * True 

•Fonts*, o ffontStee • ,. 6 ^ E " ** *" 
.FontltallcTwe set font m 

frmPrintvsPrinten « "AD Patient's Su mm ,^- 
.FontSae - fFontSte. • >"* 
.Fontttaiic- False fftWs: ' 

frmPrint.v8Prtntert«- ^ Wfmter1 . *H40000 Draw* cstorff„e 

fnnPrint.vsPfint€r1 * ^ ?™ bo °»taToView.T.xt ♦ - with - ♦ frmAHPatients LabeMrm r,-u 

frmPrtntvaPrintari o - . . 10 

•TextAGgn - taCantcrTop * *• 

.FontBoJd • False 

.Ta We Bonder a to None 

.FontStee « IFontStee * 1 i ■*„ 

frmPrintvaPrtnterl » - w BjI - 

frmPnnt.vsPrinten.- -^!^ 
.UnaSpadng.90 * 

-TajrtAflon -taC.r*.rT^ * of current font 

'Print the report Don 

WMl ftmAJlPatienta.grid 
.Row ■ 0 
.CefaO 
«U*t».Text 
.Cof «1 

«Ust.slht* T *. Text 
.Col ■ 2 

tUjt.aUsf T *.Taxt 
.Col* 3 

•Urt^sUafr^.Text 

sTaWe«sTableFormat4sUst 

With frmPrintvsPfintefl 
.TibteBorfer « tbBottcm 
•FontSfee • io 
.FontBoM - True 

EndWtth 



ICount • .Rows - 1 

•Usta- 

.ColaO 

«Ust - sList ♦ .Text 
.Col at 

.Col a 2 

»tto»sUst* r *. Ttxt 

.Col a 3 

«Ust. tUsfy. Text 
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L.Crf-4 
^frmPrtnt.pnJProgrewCcnhiiner.Re^ 
EndWfth 



J^^as- PrintAHPaiienisSumm; 




^/.CounOMOO 



End wan 

sTable * sTabteFormat ♦ sJJ* 
With frmPrinLvsPrinteri 
.FontSize ■ fFontSfee • o 9 •»« „• 
•UneSpacing - 80 • <tef * 3 * 

.T«rtAion - taCenterTop " < * Ct "™'*« 
.TablaBorder e tbNone 
.Table o s Table 
End WW, 

On Error Go To 0 

frmPnnt.pnJProgrtssContainer Viston e 

^PnntprtP rofl re»sConta«er.RefrMh *"» °* ****** indicitGr 

End Sub 

Private SubPrintPatientOosingReportO 

On Error Resume Next 

-Print Carer A/t to the Prim onvim* r«„,~, » 

It Frh&dstsrco r*r*\-* ?ZZ 0 77)e/I * cove,/, chosen 

sscssa*"*—' 1 - 

frmPrinf w a »»„.,... . , 

'sfa/fanewpej^ 



^fr-ayo^rppertfes 
WigeNumberSuspcna * Fe/sa 



Sid// 

-Pn^resa.FloodPercent.o 

.Pj^rwConUiner.vislWe - Tm. 
Erid^rT^ tt ^ mainCr ^ efr,5h 
^igePropertia* 
fFontStza » io 

W*h ftmPrintvsPrtman 
JC1-700 

^.ftmPrtntvsPrlnteriJci * frmPnnt.pictogo.WWth 



'Print /n/o/metfo*> Haatfer 
^21 N " mb *fS««P«nd - Falsa 
With frmPrintvsPrinteri 
•FontNama • 'Afar 
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Printing, bas. PrinlPn!ienlDotfngR a 



c 




•FontlUlic = Tnie 
'TextCohr » 

.FontSize . fF ont Sir. • 1 T^^f * epCft " pnnrneme 
.FontttaUc- False 

frm Print vaPrinterl » PAT hay* „ 

*T.W. . ,T.bl« . flsCuMomLWaS. ' * PAT -OAT*.sTxC.nl.f ♦ y ' 

•Tit*. • .TMh . OTC^^M^f.*. L* p *LDATA.,On» . T 



frmPrintvaPrinterl =■ * 

.TextAS^ - taCenterTop **** 9 '* e 

-FontBold ■ In* 
.JableBonJer « tbNone 
•FontStza • Fcn'Size * i i 
•Table - sTable 

frmPrint.vsPrtnterl » - 
frmPrint.vsPrtnter1 * - 
•UneSpadng * so 
.TaxtADgn » UCenterTop 



'sot font stze 
'sand out ttbfo 

. 'skip a tmt 
'stup a an* 
'% of current font 
'center text 



«U»t * "Evants Types Shown* " 
End If 

" ^!l^! OOSi ^ Re P 0 ' t - < *'<Do»Chano K l Then 



frmPrintvaPrmterl * - 

jFortStza.iFontStte'0.9 
^PrmLvsPrinten-aUst 

EndVMth 



•*Wp a /me 
'set font size 



"Pnnt the report Dete 
fnnPrtnt.vsPrfntert 



■«nr-Tww.vsraitert ■ - 
^inr me informotton from *. 2w 1 



£7 
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^jn^bas - PrintPaticniDosingRt 



.ROW a | 
.Col>0 

.Col* 1 

t* 

•Ust-tUH.-i— .Ttxn. r 

____ ^feS:-)-™ 
End With 

' »T«bIeFormat ♦ sUst 
WWt ftmfMrtlvaPrtmert 

-T.xtABgn.'t.CnlefTop **«""•»'*«' 
Bit"' 1 '* We«,. W . 



51 



On Error Go To o 




"Won* . TmPrlntv.Primert.Fortsii. 



.Row ■ 0 
.Col«o 

.Cot 

»U««iUffT».Ttxt 
Xol.$ 

sUst « sita ♦ T + T ^ ... 
EndWfth • 



fTibto-iTableFomtaftUjt 
J^rtm.v«Printer1.FontBold - True 

ftmPnm.vsPrinten »- **»<f out heider 



6? 



WO 99/35588 



PCT/US98/22830 



Printing.bas - PrintDosingEventsHeaaer 



'Put sitting back to previous ones 
frmPrtntvsPffmerl.TabJeBcrder « tbNone 
frmPrinLviPrinterl .FontSfce » fPrevFont 
frmPrirt.vsPrinterl.FontBold » bPrevBoW 

End Sub 



Public Sub LoadPictureToPrinterControl(ByVal bCover) 

'Set the printer control to size a picture and copy 
'picture trzn hotting area :o the print preview corttrzt. 
If the picture tc be aspiayed is a cover, 
tnen the bCovtr flag should oe set to true by cater, 
'otherwise it is essumed to be a bonier. 

Dim tPaperWJdth*. IPaperHetght%, INonPrintVYlduY*. iNonPrintHeight% 
frmPrtrt.vsPrtntef 1 .PhysicalPage » True set physical page to paper dmension 

iPapervMdth » frmPrintvsPrinterl .Pagev\Adth 'determine size of paper 
iPaperHeight • frmPrintvs Printer! JP ageHeight 

frmPrfntvaPrinterl .PhysicalPage » False return printer tc printable area 

iNcnPrinflAldth ■ (iPaperWWth - frmPrtntvsPrrnterl .PageWtdth) / 2 
INonPrtntHeight * 0P«perHeight - frmPrintvsPrinterl .PageHeight) / 2 

If WonPrinlWIdth < 3 SO Then iNonPrtnttMdth » 350 'make a minimum margin 
If INonPrintHeight < 350 Then INonPrintHeigrtt « 350 make a minimum margin 

frmPrintvsPrinterl .X1 « INonPrintWldth 

frmPrtntvaPrinterl .X2 » frmPrintvsPrinterl .PageVvldth - INonPrintVVIdth 
fnnPrint.vsPrinterl.Yl * INonPrintHeight 

frmPrintvsPrinterl .Y2 = frmPrintvsPrinterl. PageHeight - INonPrintvMdth 
• ftmPnnt vsPnnterf JDra w* 2 'picture hotter only 

fmiPrfntvsPrinterl .Picture « toadPicturefgraprucsV- & "deco.wmr) 

End Sub 



Private Sub !nitPageMargins() 
'Set margins 

'Margins font seem to set property until tht next page is created. 
'TheTs why they can be set only once be/o/e printing begins. 



frmPrintvsPrinterl .MarginTop « 1350 
frmPrtrrt.vaPrinterl. Margin Bottom - 1500 

frmPrint.vsPrlnter1.MarginLett ■ 1725 
frmPrirt.vsPwiter1.MarginRigM « 1700 

End Sub 



Top margin 
'bottom margin 

left margin 
'right margin (from right edge) 
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Printing.bas - inilPageProperlies 



Private Sub lnrtPageProperties() 

Reset margins for text and initialize other items 

frmPrinLvsPrinterl .Urn Spacing « too -.00% of current font 

'Set the norma} attnbutes here 



frmPrinLvsPrinterl .TextAfign » 0 set zentenng back to normal 

End Sub 



Private Sub PrintPageDateQ 

•print Date 

Dim ITextHeight A* Long. (TextWldth As Long, sTextS 
'print date for the a to ve tabs omy 

'Rather than using . TextAkgn property, text is ce.ttereo here using ff)/s method 
to ensure page centenng regardless of margins or paragraph settings 
InitPageProperbes 

frmPrint.vsPrintcrl .FonlNama * •Arfaf" 
ftmPrtnl.vaPrinterl.FontSize » 6 

aText c "Printed: * ♦ Oate$ ♦ • with ■ ♦ App.THte ♦ * software." 
trmPrintvsPrinterl .Measure • sText 'set stnng to measure 

ITaxtHelgm ■ frmPiint.vsPrinter1.TextHei 'get text height 
ITextWWth « frmPrinLvsPrinterl .TextWW 'get text width 
frmPrtavsPrinterl.CurrentX * (frmPrinLvsPrtnterl .PageWldth . JTextvMdth) 1 2 

- If trmPrtntvsPrtnterl .CurrenlY < 1 3000 Then 

frmPrinLvsPrtnterl XurrentY » frmPrinLvsPrinterl .PageHelght - (trmPrtnLvsPrinterl .MarginBottom ♦ (2.5 • ITextHeight)) set She to ver. 
> bottom 

- Else 

frmPrint-VsPrinterl .CurrentY « ermPrtnLvsPrinterl .PageHeight - (frmPrinLvsPrinterl .MarginBottom ♦ (0.1 • ITextHeight)) *sef fine to ver, 



End If 

frmPrinLvsPrinterl * sText 

sText » "Copyright 1998 by SangStat Medical Corporation" 
fimPrtnLvsPrtnterl .Measure = sText 'set stnng to measure 

ITexfWJdth » frmPrinLvsPrtnterl .TextWld 'get text width 
rnnPrinLvsPrinterl .CurrentX » (frmPrtntvsPrinterl .PsgeWidth - (TextWldth) / 2 
frmPrinLvsPrinterl « sText 

End Sub 



Pubiic Sub PrirttPageNumberO 

-prmr page number it check box is active on form 

giPrintadPageNumber ■ gJPrintedPageNumber ♦ 1 Increment page number for next time 

— If go Page Numbers uspend ■ Fa be Then 

frmPrinLvsPrtnterl .HdrFontSfee ■ a 

frmPrint.vsPrinter1 .Footer « IDosing Report " ♦ PAT_OATA.sPatientLastName ♦ PAT DATAsPatientFirstName ♦ - 
> PATJDATAsPatientID ♦ - Page " ♦ CStrfeiPrintedPageNumber) 

- Else 

frmPrinLvsPrinterl .Footer * ™ Vnusr print a blank footer otherwise old page # wilt show 
_ End If 

End Sub 
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Public Sub RefreshPreviewQ 

Static bRefreshPreviewlnPro cress As Integer 
'prevent recursive carts to h§re 
If WefreshPrevi wlnPrcoress • True Then Exit Sub 
If gbPreventPreviewUpdates Then Exit Sub 
bRefresnPrevte*(nProgress • True 

frmPrintMousePoJnter ■ vbHourglass 
frmPrint.HScroUI. Enabled » False 
frmPrint.HScroD1 .Refresh 
frmPrintNScroni .Value « 1 
Oo Events 
On Error GoTo 0 



reset 



frmPrtnt.WnRefresh.Ena bled » False 
frinPrintbtnRefresh.Refresh 

frmPrint.btnPrirt New. Enabled » False 
fmiPrtntJ)tnPrtntNow.Refresh 

frmPrtntbtnCtose. Enabled * False 
frmPrtntbtn Close. Refresh 

trntPpntbtitFotmaLEnabted * False 
' frmPrint. btnFormat. Refresh 
Oo Events 

o/TotatPrfntPages«0 
oiPrintedPageNumbef ■ 1 



coprocessing 



'disable bistorts unci preview build is complete 



'reset the page counter 



!!p^^ c!! bW "J™ 'Print to screen 

fmnPrtnLvsPrinterl.Footer * - -Clear the footer 

' ^^^Z^^^r 0 ' ^ Mmtf »"*' 'Controls footar also 
trmPnnUvsPnmtnMdrfontStze * ?? Confrc/s roofer a/so 

"Santf information to the preview screen 

Initialize print job 

InltFageMargins 



If cbPrinterErmrOetectedThen GoTo RefreshPrevlew_ExJt 



frmPrini.vsPrtnUrl .PrevtewPige • 1 
fmPnht.vsPrinter1.PrevtewMode ■ 0 
frmPrtntvsPrinteri.PageBorder ■ 0 
frmPrtnt.vsPrthterl .TtxtABgn ■ 0 

"CaH LoaottaunToPrinterCofltroifFals*) 
Select Case gsActiveFormName 1 

Case TrrnPatlerrtSummary- 

Casa "frmAnPsiients" 
Cal PrtntAIPaHentsSumniary 

Case "frmPattentOcsingReport- 
CaDPflntP^tiertOosinBReport 

End Select 
PrtntPageOate 



'Show 1st page 

V*screen compatible. l=pnnt compat. 2 • 
'no page border 
left align text 



force monochrome 



'print date for fast recipe 
S\V DCC 



frmPrintvsPrintert Action « paEndOoc 
frmPrinLvsPrinterl .Visible • True 
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Printing.bas • RefreshPrevlew 



frmPrint.HScroai.Max « gfTotalPrintPages 

RefreshPreview_Exit 

frmPrtnt.btn Close. Enabled « True enable buttons 

DoEvents 

bRefreahPreviewtnProgTess - False mow future caHs to this procedure 

frmPrtntbtnPrintNow. Enabled « True 
frmPrfntMousePointer ■ vbOefaull 
DoEvents 

End Sub 



Public Sub SetPreviewSfce() 

Dim bHeighlUmit%. (Temp As Single 

frniPrlnt .Mo use Pointer * vbHourglass 
ftmprintJIefnsh a refresh of the fern causes controls inside a frame to disappear 

frmPrint. vsPnntert. Visible « False 

trmPxnt. vs ViewPortl . Visible « fa/se 
DoEvents 

If (lhnPrintvsPr1rter1.PageHeight / fnnPrint.vsPrinterl .Page Width) > {frmPrintvsVlewPortl .Height / frinPrtntvaVlewPortt .Width) Then 
H bHelghtUma » True 

, Select Case frmPrinLoptZoom(0). Value 

CataTrui fuB page view 

. If bHetghtUmft « True Then then is a height restriction in the viewport control fur mis print onentabon 

fnnPrintvsPrtnterl .Height » frtnPrtntvsViewPoitl .Height • 0.99 
fTemp o frmPrtnLvaPrimerl .PageWldth / frmPnntvsPrtnterl.PageHeight 
fTemp • frmPrint vaPrinterl height • fTemp 
frmPrirt.vsPrtnten. Width « fTemp 

Else 

frmPrtntvsPrtnterl .Width « frmPrintvsVlewPortl .Width * 0.99 
fTemp • frmPrtttvsPrimerl.PageHelght / frmPrint.vsPrinterl .PageWldth 
fTemp « frmPrtntvsPrinterl.WWth • fTemp 
fnnPrtntvsPnriterl .Height « fTemp 
I End If 

•Afa*e viewport virtual screen large enough to show fun page of print control 
frmPrtntvsVlewPortl .VfrtualWWth • frmPrint.vsPrinterl .WWth * 1 
frmPrint.vsVTewPort1.VirtualHelgw « fm>PrtntvsPrinter1 .Height " 1 
frmPrintvsVlewPortl .BorderStyle * 1 turn off bonier 

Case Else Magnify view 

frmPrint.vsPrtnter1.WWth • frmPrinLvsPrinterU>ageWWth • 1 
frmPrtntvsPriniert .Height « ITmPrintvaPrinterl PageHelght ' 1 

frmPrintvsVlewPortl .VWuilWldth « frm Print vsPrfnterl .Width • 1 'ensure scroll bars will be shown 
frmPrintvsVlewPortl .VWualHalght « frmPrfntvsPrtnterl .Height ' 1 
fimPrintvsViewPortl .Borders tyle = 0 turn on border 
I End Select 

frmPrintvsPrinten. Visible « True 
frmPrintvsViewPoitl .Visible a True 
fmtPrmt. vsViewPertl. Refresh 
frmPrtntMouaePolnter • vbDefautt 
DoEvents 

End Sub 
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Prinllng.bas - UpdatePageBultons 



E 



Public Sub UpdatePageButtons() 

ftmPffntlblPageNumber.Caption » T«ge " ♦ CStrtfrm Print. HScrofH .Value) ♦ " of • ♦ CSUtgiTotalPrintPages) 
fnnPrintJWPageNumber.Reffesh 
If giTotalPrintPsges < 2 Then 



^ftmPrtntHScroBI. Enabled • False 'no scruff oar needed tor a smote page 

frmPrintHScfoflt. Enabled a True 
End If 
Do Events 



End Sub 
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Fax.bas - File Declarations 



Attribute VB.Name • "modFax" 
Option ExpHcit 

Public geF ax As Control 

PubBc gsFaxFilaSpec Aa String 

PubUc gsEdSNarne As String 'a temporary place to hold fax names bemg edited or reared 
Pubic gsEdaVotco As String 
Pubic gsEdaFex As String 

PubOc gsEdltGfouplndexes As String holes temocrary tr.dates to all locations associated wth a group 
Pubic gsEd&GroupName As String 

Type Fax Data Structure 
sFaxlO As String 
sDieJPreftx Aa String 
iRetries Aa Integer 
iRetrylntenral Aa Integer 
bFaxftesolution As Byte 
sSenderName As String 
sSenderCompany As String 
aSenderFaxNumber As String 
aSendorVo ice Number As String 

ilocTotal As Integer a count or ffte locations 

8LocPer*mName(1 00) As String 'rgtt it may be desirable in the future ro make these arravs dynamic 
elocFexNumber(lOO) As String 
slocVoiceNumber(100) As String 

IGroupsTotal Aa Integer 
sGroupTille(50) As String 

sGroupNameslnTWefSO) As String 'indexes to n ernes separated by pipe, fie 3\6\1$) 

iGroupLastSelected As Integer 
End Type 

PubBc FAX_DATA As FaxData Structure 



PubDc Sub GetFaxLocations() 
Dim I Aa Integer, r As Integer, sSection As String 



r 



With FAX_DATA 

sSection ■ Tax Locations" 

.HocTotal « Clnt(GetlNISotting(g*FaxFBeSpec, sSection, Total Locations", "0")) 
For I » 1 To ^.ocTotaJ 

.sLocPersonNamefl) = GeUNISatting(gsFaxFiteSpec. sSectioa "Person • ♦ CSoU), ") 
.sLocFexNumberfl) • GetlNISettingtgsFaxFBeSpec, sSection, "Fax * ♦ CStr{[). "J 
.sUcVoteeNumberTi) « GetlNISetting(gsFaxFBeSpec, sSection, "Voice CStrfJ), ") 
Next I 

sSection ■ "Fax Groups* 

JGroupsTotal ■ GetlNiSetting(gsFax File Spec. sSection, "Total Groups", TT) 

□ For I • 0 To .iGroupaTotal 
.sGroupTWeffl - GetlNISeWngXgsFaxFlleSpec. sSection, -Group " ♦ CStrfJ), -) 
.sGroupNameslnTftleO) ■ GetlN1Setting<gsFaxFiIeSpec. sSection, "Group Locations " ♦ CStttf). 1 
Next I 

sSection « "User Selections" 

JGroupLastSeiected » Clnt(GeUNIS«tting(gsFaxFileSpec. sSection, "Ust Group Selected". "0")) 
End With 

End Sub 
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Fax.bas - GetlndexToFaxGroupNarhe 

_ _______ r 58 



Public Function GetlndexToFaxGroupName(ByVal sGroup As String) As Integer 
Tmd sName in the list of tax names. It fount, pass index Pack to carter 
'otherwise return 0. 

Olm I As Integer 

sGroup * LCasoJ(sGfoup) 

Wfth FAX_OATA 

For i » 7 To .JGroupsTotal 

tf ICaseS/.sGroupTftlefl)) - sGroup Then 

Gettnd«xToF ax Group Name * j 
Exit Function 

End If 

Next I 

End Wfth 

End Function 



Public Function GetlndexToFaxLoclMame<ByVal sName As String) As Integer 
'F.nd sName in the lis: of fax names, tf found, pass index Heck to caBer, 
"otherwise return 0. 

Dim I As Integer 
sNam e ■ LCaseS(sName) 
With FAX DATA 
, For I * 1 To JLocTotal 

□ If LCase$(.sLocPersonName(l)) * sName Then 
CetJndexToFaxLocName ■ i 
Exit For 
End If 

I Next I 

End With 

End Function 



Public Sub RemoveGroupFromFaxList(ByVal sGroup As String) 
•rtemove (he name from the nst and move up *8 others in the 6st 
Dim I As Integer. J As Integer, ilndexf ound As Integer 



Wfth FAX_DATA 

For 1 * T To JGroupsTotal took through whole list for name 

It .sGroupTltle(i) » sGroup Then found it here 
ilndexFound « i 
Exit For 
End If 
Next I 

For I • Ondex Found To JGroupsTotal - 1 
.aCroupTiBefl) « .sGroupTiBefl ♦ 1) 
.sGroupNameslnTftle(i) » -GroupNaroesJnTiuefl ♦ 1) 
Next I 



JGroupsTotal « JGroupsTotal • 1 
End Wfth 
End Sub 
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Fax.bas - RemoveNarneFromFaxUst 



Public Sub RemoveNameFromFaxList(ByVal sName As String) 

'Remove the name from the tost and move up an others in the bst. 

Dim I As Integer. J At Integer. ilndexFound As Integer, r As Integer 

Dim sTempUst(lOO) As String. sNewlndexes As String, iTemp As Integer 

Wttri FAX.DATA 

For I B 1 To JLocTotal 7oo* through «hoi* lis: tor name 

If .sLocPersonName(i) = sName Then fzund it here 
ilndexFound = i 
Exit For 
End If 
Next! 

For I » ilndexFound To JtocTotal - 1 

.8locPersonName(i) ° .sUcPersonNameO ♦ 1 ) 
.sUcVoteeNumbenfl) « .slocVoiceNumberfl ♦ 1) 
.sLocFsxNumberfj) ■ .siocFsxNumberfl ♦ 1 ) 
Next I 

.H-ocTotai - .LocTotat . 1 

'(Wow that the name has been remove! we must look et ad of the indexes of 
'each fax group to see ft an index pointer was in there. If so. it must 
'be removed. Additionally, ell index greater than the one removed must be 
'decremented by one. 
If IlndexFound Then 
For I ■ 1 To JGroupsTotal look at each mdet record in a fax croup 
'Parse out all of the fndexs into e list for easier processing 
r ■ Ptx*eOellmString<.aGroupNamesJnTiue(i). *]', sTempUstO) 
sNewlndexes « ™ 

If r Then Indexes where found tor tins record 
Forj»lTor 

took at each item In the Us: to see If it equals or great than the one removed 
TTemp o CInt(sTempUsUJ)) 

If (Temp ■ ilndexFound Then 'sam e Index must be remo ved from fir's.' 
'nothing to do. Dont add it to new list of indexes 

Ebetf FTemp > ilndexFound Then 'higher indexes must be decremented by one. 
ITemp » [Temp - 1 

sNewlndexes ■ sNewlndexes ♦ CStr(iTemp) ♦ T 

Else 'onginal value is OK 

sNewlndexes o sNewlndexes ♦ CStrfJTemp) ♦ 
End If 
Next] 
End If 



.sGroupNameslnTWefl) » sNewlndexes 
Next I 
. End If 
EntfVtfth 



'store the new list of indexes back to array 



End Sub 



7t 
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Public Sub SetFaxDeviceLabetfJ 

This label on the option* tab asp/ays the status of mo fax oevice. 
Va tax device exists, then too labet displays the device, otherwise 
'it shows an appnpnate message. 

With frmOpttons.JWFaxDevice 

If gcFax.OeviceCount > 0 Then at teas: zna fax device was found 

fori s 0 To gcrax.DeviceCoutu - 1 

.Caption « gcFax.Devices<0) snow nam: of the Z:«cs found 
.BackCotor * 4HFF00A green background 

.ForeCotof * 4H0A 
* Next! 

Else 'no fax devices were found 

.Caption « *A fax device was not found. Please ensure the fax or modem is connected propery." 

.BackColor - 4H804 'red background 

.ForeCotor« 4HFFFFFF 'white 

I End If 

EndWtth 

End Sub 
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Attribute V8_Name - "modCalendar 




H 



Option EapBdt 

Private glCompfledDosesCreated Aa Integer 'number of Complied Doses to show on the catenoar 

Private gfNonCompUedOosesCreated Aa Integer number of non-complied Doses to show on the calendar 
Private giOoseSizeChangesCrested As Integer 

P rivate gZoom Dose sCreated As Integer number of Dcses to show tn zoom box 

Private giDosesMlssedCreated Aa Integer numoer of objects to show for missed days 

Private gbCalendarUpdatelnProgress As Integer prevents recurs/ve cstts white updating C3tenaar 

Public gsngComplianceTimeRange As Single '% cf hrs on either side of » prescnbed dose in which a aose must be taken 



Type CALENDAR_S ELECTIONS 

chkDosesTaken As Byte 

chkOosesNetCempOed As Byte 

chkDosesMissed As Byte 

chkDoseChanged As Byte 
End Type 

Public CAL_DEFAULTS As CALENDARS ELECTIONS 



Type SUMMARY^S ELECTIONS 

cmboOaUToView As Byte 

onboChartType As Byte 
End Type 

Public PAT_SUMJ>EFAULTS As SUMMARY^S ELECTIONS 



Public Function CaIcDayslnMonth(ByVal IMonth As Integer, ByVal lYear As Integer) 
"Calculate the number of days In the month/year that is passed here 
Dim I As Integer, (Temp As Long 

l»IMonth*1 
If I « 13 Then U1 

nemp - CVOate(CSutl) ♦ '/Oir ♦ CStrflYear)) 
Hemp » Hemp* 1 
CateOayslnMonth ■ OayffTemp) 
End Function 



Public Sub DrawAIIDoseSizeChanges() 

Dim I As Integer, r As Integer, iOayslnMonth As imager 

Olm eCatandarStartOate Aa String, oTsne As Double 

Ohn IDateOifferenct As Long, ICaiendarStartDate As Long 

Dim bfirstOayAlreidyPlotted As Boolean. bLastDayAlready Plotted As Boolean 

RemoveDose SizeChanges 'remove ail ot the old doses first 

IOayslnMonth • C^»cOayslnMonth(frmDosingCalendar.Calendar.Mon!h. frmDosingCalendar.Calendar.Year) 
sCalendarStartOate » CStr((rmDosingCalendar.Calendar.Month) ♦ TOtr ♦ Str$(frmDoslngCalendar.Catendar.Year) 
ICalendarSUftOate ■ DateVeJue(aCalendarStartOate) 

■ If ^DosingCatendar.chkOoseChanged. Value Then 

• For I » t To PAT_DATAJEventOata(0) total number of events 

If PAT_DATA.byteEventType(l) • gfEVENT_0OS EXCHANGED Then 'show only med events (not errors, etc) 
IDateDfflerencs ■ lnt{PAT.OATA.dEventOate(i))" ICaiendarStartDate 
If Date Difference »■ 0 And IDateDlfference < IOayslnMonth Then 
dTlme » PAT_DATA.dEventOate(l) - lnt(PAT DATA.dEvenlOate(I)) 
DrawSingleDoseSfceChange ClntflDate Difference ♦ 1), dTime, L True 
End If 
End If 

I Next I 

I Endlf 

This secbon of code ensures Stat dosing info is always plotted on the first end 
last day of the month. 
, If bflrstDayAlreadyPlotted - False Then 



it 
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Calendar.bas - DrawAIIDoseSizeChanges 

_________ i 



r « RndPre5c*edDo5eSl2eForSp«cificOay(PAT OATA. ICalendarStartOate) 
DrawSJngkOoseSizeChange 1 , dTuns, r. Falsa ~ 
End If 

If bLastDayAtreadyPlotted « Falsa Than 

f • FiirfPf«scibadDos«SizeForSpecificOay(PAT.OATA. ICalendarStartOate ♦ iOayslnMontti - 1) 

DrawSmgleOoseSizeChange IDayslnMonth. dTime. r. False 
Endlf 

For i ■ 1 To giOoseSizeChangesCreated 'shew ati the Doses 

frmDosingCalcnda/.shapcDosaSaeChangeQ.Visibfe = True 
Next I 



End Sub 



Public Sub DrawAHCqmpliedOosesTakenO 
Dim I As integer, r As Integer 
Dim tCa lend arStartDate As String, dTTme As Double 
Olm (OateOifference As Long. ICalendarStartOate As Long 

Oim IDayOoseCount As Integer, IDayNumberBeingPiotted As Integer. iLastDoseOayOrawn As Integer 
Dim iDayslnMonth As Integer. fTemp As Long 

RemoveCompliadDosesTakan 'remove aft of the old doses first 
If mriDcsingCalendar.chkDosesTaXen. Value " False Then Exit Sub 

sCalendarStartOate * CStr<lrmDosingCalendar.Calendar.Month) ♦ - /Oir ♦ SW(frmOosingCalendar.Calendar.Year) 
ICalendarStartOata • OateVatue(sCalendarStartDate) 

•Cstc the number of days in the month being displayed 

IDayslnMonth ■ Cal<^ayslnMonth(frmOosingCalendar.Calendar.Monm, IrmDosingCalendar.Calandar.year) 

. For I = 1 To PA7_DATAJEventData(0) lotH number of events 

If PAT.DATAbytaEvanrr ype(i) - giEVENT_DOS E_TAKEN Then 'show only med events (nol errors, etc) 
IDateOifference « tot(PAT_DATA.dEventDate(I)) - ICalendarStartOate 

If IDataOJfference >» 0 And IDate Difference < IDayslnMonth Then 'dose occurred during this month 
'Determine If the dose occurred within the compliance parameters 
r ■ taOoaeVV«hinPrescn^dTTmeRange(PAT DATA, 0 >*« /nde* to event bme 
If r Then 

lOayNumberBeingPiotted « ClntfJDate Difference ♦ 1) 
If IDayNumberBeingPlotted « ILastOose Day Drawn Then 

IDayOoseCount * IDayOoseCount ♦ 1 'plotting seme day as last dose 
Else 

IDayOoseCount « 1 this is e new day. Reset counter 
Endlf 

ILastDoseOay Drawn ■ IDayNumberBeingPlotted 'remember mat we ere plotting on this dat 
DrawSlngleCompHedDoseTaken IDayNumberBeingPlotted. dTime, I IDayOoseCount 
End If 
Endlf 
- Endlf 
Next I 

For I » 1 To glCompQedDosesCreated 'snow alt the Doses 

frmOosingCalendar.shapeOoseO). visible ■ True 
Next I 



rz 



End Sub 
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Calendar.bas - DrawAIIDosesMissecr 

_________ ^ 



□ 



Public Sub DrawAIIDosesMissed() 
Dim I As Integer. IDaystnMonth As Integer, I As Long 
Dim sCalendarStartDate As String 
Dim iOateDUferance As Long, ICalendarStariDate As Long 
Dim IDsyDoseCount As Integer. IDayBeingPlotted As Integer 

RemoveDosesMissed 'remove aH of the old doses first 

If IrmOosingCalendar.chkDosesMissed. Value » false Then Exit Sub 

scalandarstartpate • CStrtfrmDosingCalendar.Calendar. Month) ♦ 70ir ♦ CStr(frmOosingCalendar.Calendar Year) 
ICalenoarStartDate - DateValue(sCaiendarStartDate) M ; 

- Fo f' B ^^^ rt ?' te To ICalendarStariDate ♦ iOayslnMonth - 1 'sequence through an cays in month 

— » r o J? n TA ^ventDate<1 ) Then day o«„g ptoded « /tor ee/tfer Man 1st dose m stn/cnire 

~~ lf P ^ T - I ^ A - d EvantOate(PAT - .DATA.iEventData(0)) Then 'day being plowed is not later man last dose in structure 
DayBeingPlotted . I - ICalenoarStartDate ♦ 1 ~t the current month day to plot 

IDayOoseCourt t - C«JcOosesSumTakenOnSpecincOay(PAT.OATA. 0 'ca/c missed doses for this day 
For I s 1 To PATJDATAJDosesPerDay - iOayOoseCount 

DrawSmgleDoseMbsed IDayBeingPlotted. I 'Plot the current day 

Next I 



(Z 



End If 
. End If 
Next I 

For I • 1 To giDosesMissedCreated 'snow eO the Doses 

^Oo«ingCaleralar.shapeDoseMissed0).Vtalble - True 
Next I 



End Sub 



Public Sub DrawAIINonCompliedDosesTakenO 

Dim I As Integer, J As Integer. bOoseOutOfCompiiance As Boolean 
Dim dTimeUmtt As Double, dLowUmft As Double, dHlghUmt As Double 
Olm sCalendarStartDate As String, dTkne As Double 
Dim IDate Difference As Long, ICalendarSUrtDate As Long 

DuU ^ys^nmAs^iSg^^ ^* Nun ^« ln 9 p,rtted As W, W tUstDoseDayDrawn As integer 

ReinowNonCompnedOosesTaken 'remove eft of the old doses first 
If mnr^slngCalendar.chkOosesNotCornplted. Value - False Then Exit Sub 

Jr^JS*^^ IrmDosingCalendarXalendar.Year) 
SSSSI^ * W * ^D^CalendarXa^ndar.Year) 

dTimeUmlt - gsngComptiancaTimaRange / 24 
- ^ ■1ToPAT.0ATAJEventData(0) total number of events 

Ar*^^^*?****® " tfEV^NT-OOSE.TAKEN Then 'snow only mexf events (not errors, etc) 
L°,^!?!2! nC * " ^PAT.OATA.dEventOateCO) - ICatendarStartDate 
if IDateDlflerence >- 0 And iDateDfflerence « iOayslnMonth Then 
tfTlme « PAT,OATA,dEventDate(i) - lnt(PAT.OATA.dEventOate(I)) 
-Determine if the dose occurred within the compliance parameters 
*rgh see if we can use cur procedure already created 



'dose occurred dunng this month 
'get time of dose 



If gsn^Cdjmpi«nMT1meRange Then do test it therm is a value set in the compliance time range 
bOoseOutOtCornpliance - True 'set default to be out of range unless otherwise set below 
For| • 1 To PAT_OATAJOosesPerOay 
'compare dose time against an of the alarm times 

SlflS^i" « A ^° ATA ' dPr, * C,ib * dDoMTlme0) ' tfflmeUinlt - 0.0001 'add a /actor to prevent rounding error 

owgnUmft ■ PAT_OATA.dPrescribedDosoTime(j) ♦ oTtfne Limit ♦ 0.0001 

If dThne >- dLowUmit And dTime *■ dHighUmit Then this cose is wiihm compliance 

bDoseOutOfCompiiance « False set flag to not plot this dose 

ExB For ho need for further testing of this dose. It is in compliance 
End if 
Next J 



to 
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Calendar.bas - DrawAIINonCompfiedDosesT/ 

^64 



Else mere is no compbance rang* 

bOoMOutOrCompUanca ■ Falsa 
End If 

If bOoseOutOfCompOance Then 
iDayNumberBeingPlotted » CI ntflDate Difference ♦ 1) 
If IDayNumtwrfleing Plotted . ILastDose Day Drawn Then 
^^DayOoseCount * iDayDose Count ♦ 1 -piofang seme day as /asf dose 

iOayOoseCount « 1 this ts a n*w day. Reset counter 
End If 

ilastDoseOayOrawn « IDayNumberBeingPlotted 'rBmember rn*f we are p/onw? on ??v* daf 

OrawSingleNonCompfiedDoseTaken ClntfJDate Difference ♦ 1). dTiroe, i, IOayOoseCount 
End If 
End If 
End If 
Next! 

For I * 1 To gINonCompliedDosesCreated Show all fne Ooses 

BTnDosingCalendar.ahapeO<>seNonCompry(l).visjbJa » True 
Next i 



End Sub 



E 



P, i^!5 Ub [ J!? WS i , ?£ ,e ? 0SeSi2eChan9e(iDay ,nte 9 er - dTlme A* Double . JEventNumber As Integer bHiahlio 
T>wdosingCkwes/ormec?eyo/me/ro^^ inieger, DHigMig 

Time of time fs expressed in decimal p*ac*s as a portion of a day (VB time format) 

'NOTE: No Checks are currently mode to determine whether the event is a med event or 

'a nothmed event. It both events are kept in the same amy. then a test of the med bit 

'must be done before plotting. 

•A Dose Is not visible when first created. The caller should display the Ooses once they 

are aS creeted. so as to speed the redraw of the screen. 

"Create another clone of the the Dose shape located in the array DosefQ) 

When this feature is on. a dose size is automatically entered on the Srst and last day of the month. 

* On Error Resume Next 

Dim I As Integer, (WeekDay As Integer 

Dim IDoseleft As Single, IDoseTop As Single 

Dim fTemp As Long. IDayWIdth As Long, ©ay Height As Long 

gIDoseSfceChangesCreated • giOoseSfeeChangesCreated ♦ 1 Increment counter 

Load fnnDo*ngCaler«iar.shapeDoseSizeChangeto^ 'create a new object 

Dotventa ' 

fimDosir^CalerKJir.s^ CSIrf.PAT.OATAJEventData(IEventNumbeO) ♦ " mg 

IfbHIghflght Then 

J^jk^Calemtar .^apeDoseSlzeChange(gir>»seSb^(^ngesCreated).BackCotor » AHFFFFCO otue 
^JhTiDoairigCelenaar.sh^^ « - ^ Sl2e was Changed Today • 

E ^OosingCalendar.shapeDo*eSfceCharse^ = "Current Dose Size " 



f= 



'These anes are a work-around tor a bug in the control that causes it to 

return the wrong vetoes for day. left, day. top, etc. When fixed, we can simply use those properties 
end remove these calculations. 

IDiyVVWm«(frmr^ . 50) , 7 . -eft|af SCM/ew idth of a singie day 

EHo^C^ * 26) ' ,Da y Wdtn '^Proximate location of the day 

IDoseLeft - (IWeekDay • iDay Width) 'get left edge of day to plot 

IDoseLeft • IDoseLeft * ((tDeyVteth / 5> * iPtotPosition . 1) - (iDayVvldth/ 10) 

IDoseLeft « IDoseLeft ♦ (IDayWWm • 0.8) - fnnCtosmgCalendar^apetoseSlreChinge(gf^^ 

If mtODayWIdth / 150) < 7 Then 

«roOoaingCalendar^pe&>«^ . False 

Else 
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Calendar.bas - DrawSingleDoseSizeCnanfl 

________ ^ ^ 



En Jj 0o * inflCatendar ^ > P e ^« SteeC »«n9e(giOo»eSlzeChangesCr B 3ted).FoniBoW « True 

f™D™ingC*en^ « lnt(!DayWldth/150) 

mnDo3OTgCal«ndar.shap«OoscSaeCh3n8e(8iOo»«SlzeChanoe»Cfeated).Left » lOoseLett 



'These tints are a work-around for a dug fa ft, co/icra/ mat causes it to 

'return the wrong vetoes for day left, day. top. arc. When fixed, we can stmpiv use those properties 
'and remove these caJcu/eoons. 

The ccnGno/ is even moe stupid than i firs: supected. it can not always return the proper vertical 
location of a day, thus, we have to Jump though more hoops to figure out what week that a oarticular 
'day is in. 

°- g5' s l, *'- CaW "'* i *l -50) -625 « otitis ««J «, compel, forh**, ofM. 

swaHur'^' 1 * 28,,,Daywdih *• a,etoe ' ion 

ID«eTop - (ITtmp- lOiy Height) ♦ 625 w, ratfora in om MM Par 

I Dose Top • lOoseTop ♦ SO 

fimOo^Cilen<tor.sh V eDo»SizeChang«( S iOo» 9 SbeCh3nge$Cr»ate<().Top • IDoseTop 
♦ WaPe ^ MSbe ^^ e(9iD °" SKeCMn9,!SCreate ' , > Ti ' S ' 'E««Numb« 7,„p e«* .^moe^o*,,,,,,, a, 

* On Error GoTo 0 
End Sub 



Private Sub DrawSingleNonCompHedDoseTaken(iDay As Integer, dTime As Double, iEventNumber As 
V Integer, IPIotPosition As Integer) ^ 
Drew dosing Ooses tor tfra day of the month end time of day passed in here 
TimeofOme is expressed in dedmaf places as a portion of a day (VB time format) 
-NOTE: No checks are currently made to determine whether the event is a med event or 
a non^ned event. If both events ere kept In the same array, then a test of the mod bit 
'must be done before plotting. 

'A Dose la not visible when first created. The caller should display the Doses once they 

'are oB created, so as to speed the redraw of the screen. 

paaft another done of the the Dose shape located in the array OosefOi 

On Error Raauma Next 

Dim I Aa Integer, IWeekDay As Integer 

Dim IDoseLeft As Single, IDoseTop As Single 

Dim nemp As Long. IDayWIdth Aa Long. IDayHelght As Long 

^^r^, edl ? , I C *2 eated " ^NonCompfledDosesCreated ♦ 1 increment Dose counter 

Load frmDosingCaJenaar^apeOose^nComptyCglNonCornpaedDosesCraated) 'create a new Dose 



These Ones ant a work-around for a bug in the control mat causes It to 

'return ma wrong values for dayJefi, day. top. etc. When fixed, we can simply use those properties 
and remove mese calculations, 

ISJISl! I / ( ^ 5 ^5 a !* rUjar - Ca,emd3rWWlh ' 50 ' ,r scafewidth of a single day 

IWaakOay » (ftm OosmgCa lender. Calendar. DayLeftflDay) • 26) / IDayWIdth 'approximate location of the day 

IDoseLeft « (IWeekDay • IDayWIdth) get left edge of day to plot 
DosaLeft • IDoseLeft ♦ ((IDayWIdth / 5) ' iPlotPosftion - 1) - (IDayWIdth / 10) 
!»*OoslngCalendar.shapeDoseNonCom » ©oseLeft 



Tflasa lines are a work-around for a bug in the control mat causes it to 

return the wrong vaiues for day. left day. top. etc. When fixed, we can simply use these properties 
end remove toese calculations. 

The control is even moe stupid man I first supected. It can not always return me proper verScaf 
location of a day. thus, we here to Jump through more hoops to figure out what week mat a particular 
day is in. 

IDayHelgtt • (fmiOosingCaU.ndar.CalefKlar.Heiaht . 50) - 625 •*/. cltut it usep- to compensate Aw Mgnf ef m 
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Catendar.bas - DrawSingleNonCompliedOose". 



lOayHeight • lOayHeight / 6 

JWeekOay » (ftmOosinoCatendar.Calendar.DayUeftfl) • 26) / IDayWIdm 
[Temp « tnt((IOay ♦ iWeekDay • 1 ) / 7) 



pie approximate /oca con of me pay 



IDoseTop • {Hemp • IDayHelg ht) ♦ 62S this number factors m the title tar 
V ^"w° P '^m wSJj^lSS/^ 1 " 50 " ' rmOosln 9 Calendar - sha P e0ose ( 0 ) H8, 9 w * frmOosingC«(eadar.shapeOoseNonCompty(0). 
^OosmgCalendar.sr»peC*)seNonComply(giN^^ - I Dose Top 



^OosingCalendar.»hap«Oo3eNonComply{ fl iNonCompltedOo8eaC«ateoO.Tag - iEvenlNumber 
S zoom box- 

On Error Go To 0 
End Sub 



T<o*p ever: number for updating the 



Public Function lsOoseWithinPrescribedrimeRange(DataStruct As DeviceDauStruct ByVal flndex As Intpoo^ 
Test to see that me .vent «f me ince X pauetf *e,e /a a merfcaSon evenf and mat ' V « nae * As Integer) 

* is v*thm the presented tme range tor a oatiy desa. It yes. then 
pass TRUE back to me carter. 
Dim 1 At Integer, dTime Aa Double 

Oim dTimeLimit As Double, dlowlimit As Double. dHighUmit As Double 



dThneUmll • gsngComplianceTuneRange 1 24 

©Time ■ DaUStnjctdEveniOate(Undex) - Int(DataStructdEventOatefflndex)) 
If gsngCompHanceTlmeRange Then 
Forl« 1 To DataStrucUOoaesPefOay 
'compare dose tuna against all of th& alarm times 
dUwUmlt • DataStruct.dPrescribedOoseTlme(I) - dTaneUmit - 0.0001 
dWghUmJt « DataSlrucLdPfescribedDoseTjme(i) ♦ oTbneUm* ♦ 0.0001 
If dTime >» dLowLimit And dTime <« dHfghltmtt Then 
IsOoseWmtaPrescnbedTlroeRartge - True 
Ext For 'no need to do any further testing tor this dose 
End If 
— Next) 

. Else 'there is no compSance range, so pass back a success flag 

laOoseWttOnPreacribedTimeRange ■ True 
. End If 
End Function 



'get time of dose 



'add a factor to prevent rounding error 



Private Sub PrfntCalendart) 

This routine is called when the user presses the print button 
~ on the calendar form 

* dm sPnntinto As String 

* Dim CRLF As String 

' Dim bcolorCalendar As Long 

' Dim bcclorpnfZoom As Long 

' Dim bcolorpnlTtme As Long 

' Dim bcclojfcnn As Long 

' Dim ItohrPrescribed As Long 

' Dim fCQiorUUssed As Long 

' Dim tcotorWeek As Long 

' Dim cvrTop As Long 
' Dim curWktth As Integer 
' Dim cunSeight As Integer 

' Const XQftset*mc 
' Const f Offset* 1890 

' On Error Goto Efror^btnPrint 



CRLF « ChrS(13) ♦ ChrSftOl 



f3 
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* curTop • Me Top 

* curWidth » Me. Width 

* cvrH$ight - Me height 

' Hide this guy off the screen wMe we pnnt 
Me. Top « -{curHetgnt ■ 21 

* current background colors 
bcoiorCalencar e Ctltndar.BackColcr 
bcotofprtfZoom * pnlZoom.3ackColor 
bcoiorpnlVme ■ pnfTime.BackCctor 
bcotori=orm « We.3«c*Co/o/ 

* /fco/o/R-MC/ibetf » chkDoses Taken.rXColcr 
' fcotorMssed « chkDoscsMissed FitlCzizr 

' tcolorWeek • cttkWeekNumbers,FiilColcr 

'hie* the buttons 
CtnCtose. Visible ■ Ft/99 
btnPhm.Visible » 

dtftf (tote ♦ time fn/b ro printed data 
sPrinttnfo « -printed on: " • FormecSiKcw. 'dcsdd hh.nnl 
IblPnntlnfa.Capoon • sPrinttnfo 

' Set titles at top of printed page 
tbfrma.Captron « "Dosing Calendar 
tbiPebenuCeption - -Paoe/rf; " ♦ fcOewcMw.sFatfenr 
JWamfcCepewwi - 'Drug: * * tgOevicestat.sDrvg 

' Set background colors 
Caiendar.BackCoior ■ WHITE 
pnlZoomBackColor ■ WHITE 
pniTlmoMeckCotorm WHITE 
toAackCoior* WHITE 
chkDosesTaken.FH!Cofort> WHITE 
cbkDosasMissedmColoc* WHITE 
chkWeekNumben.F{BCoiar * WHITE 

' Let user know we ere printing 
Load frm^Status 

r^StatusJUStatus-Captlcn * 'Preparing to prim calendar' 
frm_Statvs.Show 

catf wefe*JTCWyecfs wnova erroneous e/emenfs from ca/antfar 

Cjff MovFormObfKtsfMc. XOffset. YOftseL True) 
Call UpdateCalendar 
DoEvents 



C*J UpdateZoomBox 

' Switch on visibility of tides 
IbiPrintlnfo.Visibte « 77u» 
IbtTitle. Visible • r/ut 
t&Patient.Visibia - 
Ibidrvg.Visible b r/v« 



W«*t Cftec* 6ojt»5 ftvo dimensional 
dtkDosasTaken.Check3ox2d « Twe 
c 1 rtOo*esAtf«$»tf.ChecicBojr?tf ■ True 
cWtWtaWVami»««.ChecJc8o*2</ - ta/e 



• Sring the Zoom lables to the front 
IbfZoomTime.ZQrder 0 
WZoomT'tme.Vtsible ■ True 



Pnnt the form 
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• Catendar.bas • PrintCalendar 

~~ • — -HD 

Ma.Hfight * Me Hmght - YOffstt 
Me. Wdm « Mt.Wdth * xcttsti 

DcEvints 
Mt.Printfomt 
DoB vents 



trm^S:*tusJb!Statvs.C*p:icn « 'Sendr.g cder.car :o pnncr 

t»<f* tfre odes ana show the buttons 
fbtPnatlnfc.Vis/ble * F Use 
tofTitre.Vistbi* • F i/se 
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Calendar.bas - PrintCalendar 



toPstitntMstti - Fits* 
ibksrug. Visbte • retse 




' Movs everything back 
' CaB DetotaABObjaas 

' CaB MovaFormObjects(Ms. oro/Tsef. -YO/ftet True) 
' CaB UpdateCelendar 

• fasten background colon 

' Calendar. B ackCoior • bcolorCatendar 

' pnlZoom 3 ackCoior • bcdorpniZoom 

' pnlTima.BackCotor * bcoJorpnlTirr.e 

' Ma.BackColor * bcclorform 

' chkDcsesTaken.FiBCoior ■ tcotorPre sensed 

' ctkDcsosMssed.FftCclor • fcoforMJssec 

' ct* WeekMumbers. nlJCdcr = /fcctorW*** 

' Restore buttons 
' btnCtcse.Visiblo « rw 
' btnPrintVisiore ■ TVue 

' Stf r cftec* frorts 6«Jr fo 3d 

' Check boxes mo dmensJonal 
' cttkOosesTekan. CheckBoxla • F«f« 
' cWcDoswM/wtf.CftacAflcur2tf * False 
' chk We e kNumbers. CheckBoxld » FaJs# 

* * Bring box back into view 

' Ma.Wldth * cvrWidth 

' Ma. Height « curHeight 

j Ma.Top * curTop ' bring (om back into view 

' Unload trm^Status 

'Exit btnPrtnt 
' Exit Sub 



*ErrorJOnPrint: 

' Resume Ext^btnPiint 
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Calendar. bas - PrintCalendar 



End Sub 



Public Sub RemoveDoseSizeChangesO 
Oim I As Inttgtr 
On Error Resume Next 



giDoseSfeeChangesCraaied » 0 

On Error Go To 0 
End Sub 



Public Sub RemoveDosesMissed() 
Oim I As Integer 
On Error Resume Next 



glDosesMlssedCreated » 0 

On Error GoTo 0 
End Sub 



Public Sub RemoveCompiiedDosesTakenO 
Dim I As Integer 
On Error Resume Next 



glComplladDosesCreated « o 
On Error GoTo 0 
End Sub 



Public Sub RemoveNonCompliedDosesTakenO 
Dim I As Integer " 
On Error Resume Next 









glNonCompUedDosesCreated - 0 



On Error GoTo 0 
End Sub 
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Calendar.bas - UpdaleZoomBox 



Pubfic Sub UpdateZoomBox() 

'A afferent day was cached on the calendar, so wa need ro plot the events for 

tha currant cay into tha zoom box. 

•Tht* procedure draws doses taken for a giver, day 

"NOTE: Wo checks are currently made to determine whether the event ta a med event or 
'a non-med event. If toth events are kept in the same array. tl:en 9 test of the med hit 
'must be done before plotting. 

Dim I As integer, dTime As Double, IDoseDay As Integer, iZoomPane Width As Integer 

Static bProcedurelnProgress 

If bProceduretnProgress Then Exit Sub 

b Procedure In Progress ° True 

On Error Resume Next 'pre vent error if aireadv unloaded 

- For i m i To giZoomOosesC/Bated remove all cravious Dosts 

Unload frmOosingCalandar.shapeZoomOose{i) 

— Next I 
giZoomOosasCreated » 0 

Fori* t To 4 

Unload toOosmgCaltfidar.sbapeZoomPrescribed<i) 'dear the text box tcr zoom time 

Unload lrmDosmgCalendar.shapeZoornTimeRange(0 'clear the text box for zoom time 

Next I 

On Error GoTo 0 'resume normal error status 

FoH^ToT^ * frTnDosin 9 Ca,enda ^-Pn2oom.WWth Spaed up process by detlning width bom control 

- W PATJ>ATAdPrescribedDoaeTime(l) >» 0 Then 

dTime - PAT„DATA.dPrescribedDoseTime(i) - lnt(PAT DATA.dPrescnbedDoaeTimefl)) 
Load ftTnOo«ngCalendar.shap€ZoomrimeRange{I) 

frmDoaJr^CUJenda/.shapeZoomTlm«Range<i).Left » (EoomPanelWtoth • dTime) - flZoomPanelWWth * ( 
gsngCompBanceTlmeRange / 24)) 

mT»OosingCaJendar 1 shapeZoomTimeRange(l).VVWth « (IZoomPanelWdth • (gsngCompBanceTlmeRange / 24) • 2) 
't™Oomt& 8 - CompAanca Time Range « «~ ■ ♦ CSfrfowcComptence/TmeRarioe 

^Do5JngCalendar.5nap«ZoomrirneRange(l).Vl«We * True 

miiOoaingCalendar.shapeZoomTmieRangefjJiOrder 
• End If 
Next I 

Fori* 1 To 4 

- W PAT_OATA.dPrescribedOoserime(0 >= 0 Then 

I n ^V PAT -^ T ^ dPre ^ b * dDoseTim8 < ? ) - lnt(PAT OATA.dPrescrfbedOoseTime(I)) 
LMd fr^^9<^lerttJar.shape2oomPrescribed(l) 

^^^^^^•^«P^wmPrescribed(I).Lelt « (CoomPanelWWth • dTime) - (frmrjosingCalendar.shapeZoomPrascribed(i). 

frm^ngCalandar.$nap«ZoomPrescnbed(I).ToornpText « FormatS(dTime, gsrime Display Format) 

Jn^^^^ r ^Pe2oomPrescribed(l).VIsa»le -True 

^ft»sir^Calend3r^nape2oomPrescribed(0ZOrder 
End If 



r 



Fori* 1 To 4 

fin^stnc<:elencir.atZoomr,me(,lCac4ion - - dear the text box for zoom time 
Dim ICalandarOate As Long 

rCalendarOate • OateValue<lrmOoslngCalendar.CaJendar.Oate) 
For I = 1 To giCompiiedOosesCreated 
2U l9ttrmt w «• * dob* array msreed of tha tag prooeny to prevent flashing and speed things c 

*??*? a y •frmCk»mgCalencar.shap«DoseO).Tag 'get the dav mat the dose was taken on 

If lrt(PAT.OATA.dEventOate{IDoseOay)) - ICalendarOate Then 

-Create another done of the the Dose shape located in tha array DosatOl 
gJZoomDoiesCreated ° giZoomDosesCreated ♦ 1 'increment Dose counter 
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Calendar.bas- UpdateZoomBox 

72 



Load frm0o»ingC«lendaf.sh»pe2oom0oM(fliZoom0os«sCr»at»d) 'cntate a new Oose 

? « *PJ »_OATA.dEventOatt(IDo«Day) - lnt(PAT DATA.dEventOate(10oseDay» 

^«J^^ er ^'^ P ^ Mm ^ e ^ om ^ M ^^^ e ^- Left ■ (frmDo»n9CUen(tor.pnIZoom.Wiclth • dTm) - f 
► irniQ08jngC«IefxJaf.jhap«ZoomDo5fl(giZoomOos«*C«atB<O.VVIdlh / 2) 

!^?^? ,C ^ r -^ pe ^ omt ^ ( ^ 0Om0o ^ CrC! « e < j ) Toom P T «t * FormatS(dTime, gsTimeDisplayFormatl 
frrnDcsingC«Jen<far.»hape2 0 omDose(gi2oomD 0 5e^.ted).\^tte -True X ' 

frmOoaJn9CaJ«ndarahape2oomDoae(gi2oomOo5C*Crcated)ZOfder 

— End V 
_ Next! 

• For i « 1 To giNonCompIiedDoseaCreated 

IOoseDay « /rmDo5ingCalendar.ahap«Oo5eNonComp*y(0.Tag 'gef the day char tf>e oose was rafcen en 

— ««nl(PAT_rMTA.dEventOatanDo««Oay))H|CalandarOateThen 
C/eere enodiercfone of 3>e d>e Ooaa shape located in tha a/ray CcsetfJ 
g2oamOoaaaCmatad»oEoomOoaaaCreatad*1 . Increment Dose counter 
load BTnOoiingCalandaf.sriape2oomOose(giZoornOo5esCraatod) 'create a new Oose 
dTime « PAT_OATA.dEvent0ate(IDo*eOay) . lnt(PAT DATA.dEventOate(JDoseDay)) 

^0«^Cakmdar.3hap«2oomDo3e(gi2oomDo5esCjiated).Lert » (frmOcsingCalcmJar.pnEoom.WWth - dTtma) - I 
l^Dc«ingCaJenaa/.sftapeZoomtose(giZoo^ / 2) 

^2 < ^5^^ ar ^" P ^^ m ^ M ^ om ^»* 1 ^« t ^)- TTO ' T ^ Text " FormatVdTime, gsTimeOisplay Format) 
lhnrJosingCaiendar.shapeZc«mDos*{^ 7 

frm0oaing(^lBndar^apa2oomCtose(9iZoomCk>se»^eatcd)iOrtl«r 

— End if 
. Next! 

frmOosingCalendar.pnlZoom.CapOon = FonvatSftrrnDosrngCaiandar.Calendar.Date. 'GaneraJ Date 9 } ♦ * Defa* V7ewT 

T/pdare position of Qme scete 
■ Fori- 2To 22 Step 2 

V ^^n9CaleiKlar.lWDeUinrrmaa>.Lefl « (frmOoaingC8Jendar.pr«2oorn.\Mdm • Q / 24)) - (frmDoair^CalendarJbJD.tairnmc(0.\Mtfth 
I Next I 

^DoaingCaJendar^ipaDayUght(2).Width - nroDosingCalendar.pnrZoom.VVWth • 0.53 
trmOoainflCalendir^apaDayUght(1 ).Wktth • rm»r>^<^lerKtar4wrZoom.V«dlh " 0.03 
frm[>^r^Calendar^apaOayUght(3).VVWth «= <rmDoaingCaJ«ru*ar^hapeDayUght(1).VVWlh 

frmDoaingCaJandarjhapeOayUghlC2).lefl - (frmOoaingCalendar.pnIZoorn.WJdth - (rmOoslngCalendar.shapaOayLight(2) WJdth) / 1 6 
V* 'JJj^^ Caiencter ' 5h8 P oDa y u 9f't(1 XLeft » 20 ♦ frmOoaJngCaJBndar^hapeDayUgr»t(2).Laft - lrmDoaingCatcndar.shapeOayUght(l'). 

I^Oo8mgCalendar.»hap€DayUghtf3)Xeft - frmDosingCatendar.shapcDayLtgtt(2).Lcft ♦ (mOosJr^Calandar^peC^yLightC).VVWth 

bProcedurelnProgress = Falsa 
End Sub 

Private Sub MovcFormObjects(frm As Form, XOffset As Integer, YOffset As Integer, VisibleOnly As Integer) 
' TWsnxrttoeinoveseJo&/ecfsono/b/TObyto^ 
' Argument Description 

• frm Form object 

' XOffset offset On twfps) to move m x plan: Positive is to the nght 

YOffset offset 0ntwips) to move in y piano. Positive is down. 
' VisibleOnly if true onrymove visible obiects 
Dim I As Intagar 

On Error GoTo Ernw_MoveForm Object* 

• toop trough aB me femts on the form 
For I ■ 0 To ftre.Controts.Count - 1 

if 11 the processing onty visible controls and the controls is visible 
' or 2} processing Hi controls 

— If (hn.Control*(g.Tag <> •contained* Then 
If (VtstoleOnfy And frm.Controi$(n, Visible) Or Not VisibleOnly Then 

* reset iait end top properties 
frm. Controls^!). Left ■ frm.Controla(I)-Left ♦ XOffset 
frm.Control*(l).Top » frm.Controts(l).Top ♦ YOffset 
End If 
. End If 
Next I 
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Calendar.bas - MoveFormObjects 

_________ _ 



Exft MoveFormObjects: 
Exit Sub 

Error_Move FormObjscts: 

Resume Exit_MoveFormObjects 

End Sub 



Private Sub ^wSingleCompHedDoseTaken(iDay As Integer, dTime As Double, lEventNumber As Inteaer iPin 
Draw dosing Doses for the day of the monto anc rare 0/ day passed m here. sieger, fPIo 

Ttmsts expressea m deamel places as a pcnon of a day (VB ome format) 
WO ; E: .Vo Chocks $ro currently made to determine whether the event is a med event or 
■# non-med evert. If com events are kept in the same array, then a teste/ the rr.ec bit 
must ta done before plotting. 

'A Dose is net visible when first created. The caUer should display the Dcses ©vice they 

'are aB created, so as to speed the redraw cf the screen 

Create ancdier done of the the Dose shape located in the array DosaiO, 

On Error Resume Next 

Dim I Ae Integer. fWeekOay As integer 

Dim IDoseLeft As Single, lOoseTop As Single 

Dim fTemp As Long. lOayWIdth As Long. (Day Height As Long 

gK^mpfiedOosesCreated «= giCorripfiedDosesC/eated ♦ 1 Increment Dose counter 

Load fnnDosir>gCelendar.snapeDosc(giCompiiedDo5c S Cre«ted) 'create a new Dose 



These tines are a work-around for a bug in the control that causes it to 

return the wrong values tor day. left, day.top. ate. Whan toed, we can stmptv use those properties 
'and remove these calculations. 

OfcyVMdth - Jm^slngCslerKlarXalendar.VNMth - 50) / 7 'actual scaiewidth of a single day 

rWeekOay » (trm Dos>ngCsiendtr.Csiendar.DayLeftfB>ay) • 26) / IDayWdth 'approximate location of the day 

IDoseLeft - (IWeekDay • IDayWUth) 'get left edge of day to plot 
^Left • IDoseUfl ♦ ((lOayWdth / 5) - IPtotPosition - 1) - (IDayVUdth / 10) 
J^Do«ingCeter^ar.shapeDo»e(gfCompaedDo5esCreated).LaR • IDoseLelt 



These Ones are a work-around for a bug tn the control that causes it to 

'return the wrong values for dayJeft, day. top. etc. When fixed, we can simply use those properties 
'and remove these calculations. 

The control Is even mom stupid than I first supected. It can not always return the proper vertical 
Tacabon of a day, thus, we have to jump through more hoops to figure out what week that a particular 
cay Is In. 

iSjHe^ I KSnU " ,e '* afXa,end8r Hel S ht • SO) -625 'an offset ,s used to compensate for height of Me 



OoseTop • (TTemp • IDayHeight) ♦ 625 this number factors in the title bar 
rooseTop - lOoseTop ♦ IDayHttght - 25 - trmDosingCaiendar^hapeDose<0)iteight 
^Do«in5Ceknd«r.sh»peDos€(giCcrnpfiedDosB5Crtated).Top » IDoseTop 
m^Do«ngCatendar.shap«0ose(giCompaedOose»Created).Tag ■ iEventN umber 

On Error Go To 0 
End Sub 



'draw in bottom of day 
Keep event number for updating the zoom hot 
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Calendar.bas - DrawSingleDoseMissetf 

________ ^ 



Private Sub OrawSingleDoscMissed(iDay As Integer, iPlotPosition As Integer) 
Vraw doses for the day of the month passed in hen 

WOTE: No checks en currently meda to determine whether toe event is a med event or 
'a non-mod event A test of the med orf must be done before calling this procedure. 
'A Oose ts not visible when first created The caller should display me Doses once they 
'are all created, so as to speed the redraw of the screen. 

On Error Resume Next 

Dim I As Integer, IWeekOay As Integer 

Dim lOoseLeft As Single, IDoseTop As Single 

Dm rremp As Long. IDayWktth As Long, IDayHeight As Long 

glDosesMtssadCrested » giDosesMissodCreated ♦ 1 Increment Cose counter 

'Create another done of die the Dose shape located in the array Dose(Oi 

Losd fm>f>»rtgCa!endar.shaper>>seMls«ed(giDoM^isse<K^eated) 'create a new Dcse 



These Snes are a work-around for a bug in the control that causes it to 

'rerjm the wrong values for day je ft day. top. etc. When fixed, we can simply use these properties 
'and remove these calculations. 

IDayWWth « (IrmDosingCalendar.Calendsr.VVidth - 50) / 7 'actual scatewidth of a single day 

IWeekOay » («rmDoslngCslend»r.Calendar.DayUft(IOay) • 26) / IDayWktth 'approximate location cf the day 



lOoseLeft » (TWeekOay • IDayWWth) -get left edge of day to plot 
lOoseLeft * lOoseLeft ♦ ((IDayWkfth / 5) • IPlotPosition - 1) - (IDayWWth / tO) 
lrmOosinoCalendar.sh«peOoseMlssed(glOosesMiss«lCfeatedL = lOoseLeft 



These lines are a work-around for a bug in the control that causes it to 

'return the wrong values fbrdayJett. day. top. etc. When axed, we can simply use those properties 
'and remove these calculations. 

The control Is even moo stupid than t first supected. It can not always return the proper vertical 
location of a day. thus, we have to Jump through more hoops to figure out what week that a particular 
day ism. 

IDayHelght - (firmOoslngCalendar.Calendar.Helght - 50) - 625 'an offset Is used to compensate tor height of title 
OayHeigM- IDayHelght/ 6 

IWeekOay - (rrmDosingCalendar.CaJendarl)ayLaft(l) • 26) / IDayWJdth the approximate location of the day 
fTemp ■ lnt((IDay ♦ IWeekOay - 1) / 7) 



IDoseTop - (TTemp • IDayHelght) ♦ 625 'this number factors in the tide bar 

IDoseTop « IDoseTop ♦ IDayHelght - 75 - frmOoslngCalendar^napeOose(0).Helgrrt - ftrnOoslngCalendar.snapeDosefO) Hetaht - 
V frmOosinoCalendar.shapeOose(0)><elght 'drew In bottom of day 

^Ooslng(^leirtar.shapeOoseMisa<d(g{OosesMlssedC^ated).Top * IDoseTop 

On Error Go To 0 
End Sub 



Public Sub UpdateCalendarO 

The month or year lb the calendar has changed, so we need to plot the events for 
'the current month and year being shown. 

Static b Procedure InProgresa As Boolean 
If b Procedure I nPragress Then Exit Sub 
bProcedure In Progress ■ True 

Dim fObjectOra meter As Integer 

"Show custom labels from config hie if there were any 

If LenOsCustomUriPttlentUstName) > 0 Then rrmOosrngCalendar.Labell » gsCustomLMPatientLastName 
rnntosingCaJerWar.lbiPatieniName PATJ)ATA.sPauentUstName PATJ^TA.sPatientFir*tNarne 

lObjectOiameter ■ frrnOcsingCalendar. Calendar. WW th / 45 'resize the objects drawn on the calendar 

If (ObjectOiameter > fnnOosingCalendar.Catondar.Height / 50 Then lObjectOiameter • frmOoslngCalendar.Calendar.Height / 50 
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Calendar.bas * updateCalendar 




rrmO«iingCaJ»ndarxnapeDo»«(0).WWlh » iObjectOlameter 
fmiDosingC»lenda/.»hap«Oos«{0).H«tght * lObjectOiameter 
ftm0osingCalendar.shapeDos«NonComp1y(0).V\Adth « lObjectOiameter 
frmOostnpCalBndar.shipeOoMNonComply^O). Height ■ lObjectOiameter 
ftm0o«ngC»lendaf.ihap«O08^1i8««J(0).WHm> • lObjectOiameter 
frmOo«ngC«ltndar.»h«peOo5*MI$sed(0).Height » lObjectOiameter 
' fimOosmgCalent/ar.sfiaceOoseSizeChanseW. WWh * .'Ob/eoDiameter 
• tmiDasmcCalenoar.snaceOmeSizeChancetflHsigh: * rCbjeaOismeter 

DrawAHCompfie dOosesTaken 
DrawAHNonCompiiedDcsesTaken 
OrawAIEDosesMissad 
OrawAHOoseStee Changes 

UpdateZoomBox 

bProcedure In Progress » False 
End Sub 



Public Sub RemoveAtlObjectsO 
'.Remove iii objects item calendar 
R emoveCompiiedOosesTaken 
R emove OosesM tsse d 
Co Events 



End Sub 
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frmMain.frm - File Declarations 




Attribute V8_GtobalNameSpace - False 
Attribute VB_Creatabk » False 
Attribute VB.Predeclaredld a True 
Attribute V8~Expoaed » False 
Option Explicit 



Private Sub CommTimer_Timer() 
gbCommr*ner Expired ■ True *~ 
Comm*nmer.Enabted ■ False 

End Sub 



Private Sub FaxMan1_ConfigurationDone() 

Oim I Aa Integer 

frmOpbons. Mouse Pointer & vbOefauft 
fmiOptions.WnConftgurtFax. Enabled * Tnje 
SetFaxDevteelabel 
End Sub 



E 

E 
E 
E 



Private Sub FaxMan1_FaxStatus< Device As Integer, Status As Integer) 
Beep 

If gcF«.Stetus<Oevice) - Initializing Modem" Or gcFax.Statua(Devtce) « "Answering- Then 

frniFix Status. Show 
Elself gcFax.Status{Oevice) = "Port Closed" Then 

Unload frtnFaxStatus 
End If 

frmFexStatusJWRemotetD « gcFax.StatusRemotelD(Devlce) 

If gcFax.StotusConnectSpeed(Oevice) > 0 Then 

frmFaxStatusJbtSpeed ■ gcFax.StatusConnectSpeed(Device) 
Else 

frmFaxStatuaJblSpeed = ~ 
End If 

If gcFaxStatusPagesfDevice) Then 

^fmtFaxStotus.iblPage « CStr(gcFax.StatusPagasSent(Oevfce)) ♦ - of - ♦ StrS(5cFax.StatusPages(0evlce)) 

frmFaxStatusJblPage * CStr(gcFax.StatusPagesSent(Devtee)) 
End If 

If flcFax.StatusPercentage(Oevice) > 0 Then 

^fraFaxStatus,lblPercent * C$tr(gcFax.StatusPercentage( Device)) ♦ Complete' 

frniFaxStttuaJblPerceni ■ ~ 
End If 



frmFaxStatusJbi Status • gcFax.Status<Devtee) 
frmFaxStatus.lblDestirtation » gcFax.StatusOestiriation(Devtee) 
fnnFaxStatusJbiFaxNumbef * gcFax.StatusNumber(Oevlce) 



End Sub 
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frmMain.frm - MDIForm_Load 



Private Sub MDIForm_Load() 
On Error Resume Next 

Me.Left - CUgtGeMNlSettingfosApplniFileSpec, "Windows", -Main Left". 100(0) 
Me.Top « CLng(CetINISetUng(88ApplnirileSpec. -Windows-. "Main Top". "10001) 
Me.WWth » CUng(G«!INISetting(gsApp>JrtReSpec. -Windows". "Main Width", "8500-)) 
MeXeight » Clng(Get INI Setting(gsApptniR)e Spec, "Windows". "Main Height". "6500")) 
Afe.HfndowSraf* « CU>g(GetlMSettingtgsApcJntFHeSDec. "Window. "Afa/n WndowS/a/e*. '0')) 
On Enor GoTo 0 
End Sub 



Private Sub MD!FormJJnload(Cancel As Integer) 
Dim r As tniegtr 

r » VaBdatePatientOataSaved me*e sun? ar.y device dara nas *rsr been saved 
'Save Widow ocsxfrc.os 

I M Me. WlndowState <> vbMinimized Then 

SavelNISetting gsAppiniFBeSpec. "Windows-. *Wain LefT, CStr(Me.Left) 
SavelNISetting gsApplnlFleSpec. "Windows-. "Mafo Top", CStr(Ma.Top) 
SavelNISetting gsApplniFiJeSpec. -Windows", "Main Width". CStr(Me.Width) 
SavelNISetting gsApplniFaeSpec. "Windows". "Main Height". CStrfMe. Height) 
SavelNISetting gsApplniFileSpec. "Windows". "Main WlndowState". CStr(Me.WlndowState) 



Save ProgramPra fa rences 
End Sub 



Private Sub mrtuAccessWebSfte_cnck() 

If th* form is minimized then set it back to normal 
Can LogonToWebSBe 
. If frm Browser. WlndowState <= vbMlnimtred Then 



bmBrowaer.WlndowState « vb Normal 
. End If 

trm8rowser.ZOrder 
End Sub 



Private Sub rnnuFaxConfigure_Click() 

giUtestOptlonsTabSelected « 2 'dspiay the tax tab ovce the dialog is opened 
frmOpbons.Show vbModal 
End Sub 



Private Sub mnuFaxSend_Ciick() 

frmFaxSend.Show 
End Sub 



Private Sub mnuFaxViewLogs ClickO 

ftmFaxlog.Show 
End Sub 




WO 99/35588 



PCT/US98/22830 



frmMain.frrn - mnuFileProperttes_c5fe£ 

________ i 



Private Sub mnuFileProperties C1ick() 

frmOptlons.Show vbModat 
End Sub 



Private Sub mnuFileSave_CHck{) 
Dim r As Integer 



E 



If PAT_OATA.sPaoentOataFilaName = - Then 

r « SaveOataToNewFBe 
Else 

r o SavePatientData(PAT DATA.sPatientDataFfleName) 
End If 



If r « false Then 
Beep 

Msg Box -An error occurred while attempting to save the data file. It was not saved/. vbCritical, Tile Not Saved" 
End If 
End Sub 



Private Sub mnuGenError_C(ick() 
MsgBox This is a temporary test error handler. When you dick OK. a synthethic error (Divide by 0) win be generated. The same dialog 

V will be shown when any error is generated. It generates e log file that provides valuable information for the developer. This will be 
W removed from the next build.", vbtnformation. Test Error Handier 

Error 11 
End Sub 

Private Sub mnuHelpDeviceDiag_CHck() 
01m sMSG. sRepty As String 

sMSO o Terferming a device diagnostics test could cause loss of vital device In formation and should be done only with the assistance 

V of technical support* 

sMSG » sMSG ♦ vbCrU ♦ vbCrtf ♦ Tiease contact our technical support department at 1-800-777-7777 for a password and assistance 

>♦ 

' O'sp/ay message, off*, and dafauit value. 
aReply ■ lnputBox(sMSG, Tassword Required") 
If LCase*(*Reply) - "h2o" Then IrmOevlceDii gnostics. Show 
End Sub 



Private Sub mnuHelpT*ips_Cltck() 
frmTip. Show 

V tht torn is mtotrrizad thtn set it back to normal 

If trmTlp.WndowState « vbMinirmzed Then frmTip.WtndowState « vbNormal 
trmTlp-ZOrdar 
End Sub 



7ST 
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frmMain.frm - mnuReadDeviceDataJ&li§R 




Private Sub mnuReadDeviceData_Click() 
frmReadDevlct Data. Show 
'if the form a mintnvzta then set it back to norma] 

if frmfteadDcviceOata.NMndowState ■ vbMinimized Then frmReadDeviceData.WlndowSUte « vbNormal 
frmReadOevtee Data .ZOrder 



Private Sub mnuSendDeviceData_Click() 
frm Device Initialize. Show 

ff the terra is minimized then set it back to normal 

If frmDevicetniUaBzi.VttndowState a vbMinimized Then trm Device Initialize. WndowState ■ vbNormal 
frmDevicelnibarat^Order 
End Sub 



Private Sub mnuVtewAUPatients_Click() 

frmAllPetkints.Show 

'if the term is mmimzeo' men set it back .10 normal 

it frmADPatients.VWndowState • vbMinimized Then frmA«Patients.WtndowState » vbNormal 
frmAfiPaUents^Order 
End Sub 



Private Sub mnuHelpAbout_CUck() 
frmAbouLShow vbModal, Me 



Private Sub mnuViewCatendar_Click() 

frm Do sing Calendars how 

V the form is minimized then sat it back to normal 

If ftmOoainQCalendaf.VvlndowState » vbMinimized Then frmOosingCalendaf.VvtndowState * vbNormal 
ftmOosingCaJendarZOrder 
End Sub 



Private Sub mnuV1ewExplorer_Click() 

rrmuVlewExptoref.Checlced » Not mnuvlewEjtptorer.Checked 'toggJ* the state of the check box 

SSUstBarl .Viable « mnuViewExplorer.Checked 
End Sub 



Private Sub mnuViewOptions_CHck() 

frmOptiona.Show vbModal, Me 
End Sub 



End Sub 



End Sub 
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frmMoin.frm - innuViewPatientDosingRepdrt 

_______ r 8q 



Private Sub mnuv1ewPatientDosingReport_Click{) 
frmPattentOosingReport Show 
fftha form is minimized then set it back to norm*! 

WfrmPal»ntOosingReport.VMndowState ■ vbM'tntmaed Then frmPatientDo sing Re port. WlndowStote « vbNormal 
fmtPatientOosingReportZOrder 
End Sub 



Private Sub mnuViewPatientSummary^CIickO 
frmPsttentSummary.Show 
"if the form ts minimized then set it beck to normal 

If frmPatttrtSumma/y.WndowState « vbMinimiied Then frmPatiertSummary.VVIndowState - vbNormal 
frmPaUentSummary ZOrdmr 
End Sub 



Private Sub mnuVlewStatusBar_Click() 

I It mnuVJewStatusBar.Checked Then 

abStatusfiar. Visible ■ Faise 
mnuViewStatus Bar. Checked » False 

Else 

sbSlatusflar. Visible = True 
mnuVlewStatusBar. Checked «* True 

I End If 

End Sub 



Private Sub mnuVtewTootbar Click() 

, If mnuVlewToolbir. Checked Then " 

tbToofflar.VUfole » False 
mnuVlewToolbar.Checked » False 

Else 

tbToolBar. Visible * True 
mnuVlewToolbar.Checked » True 

I End If 

End Sub 



Private Sub SSUstBaii_UstltemClick(ByVal ItemCHcked As Ustbar.SSUstltem) 

I Seled Case SSUstBarl.CurrentGroupKey 

Case "Patient Data" 'paSent data 

i Select Case Item Cocked. Key 

Case "Event Calendar 'caiandar 

rnnuVIewCalendar_Cllek 

Case -Summary" Summary 

mnuVlewPaUentSummary^CUck 

Case "Dosing Information" •grid 

mrojViewPauentDosmgRepoft_COck 

Case "Afl Patients" 'all patients 

mnuVtewAHPatients^aick 

End Select 



Case Device" 'device data 
Select Case RemClteked.Key 
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frmMairvfrm - SSListBarl JJsmemeiB 



E 



Case -Retrieve Data" yeac uewce <?at* 

mnuRe ad Device Dats_CIJcJt 



Case 'Program Oevice" 'se«C ro DosPro Device 

mnuSendOe vice Data CBck 
End Select 
End Select 
End Sub 



Private Sub tbToolBar_ButtonCHck(By Val Button As ComctlLib.Button) 

— Select Case Button.Key 

— Case "Open" 

mnuF3eOpen_Ctick 

— Case "Save" 

mnuFoeSave Click 



Case "Print" 

mnuFDePiinLCIick 

Case "Cut" 

'mnvEdXCutJClick 

Case "Copy" 

'mnuEditCapy^Ctick 
ClipboantQtar 



If TypeOf AajveForm.ActvcControl Is TextBox men 
Select Case Index 
CasaO 'Cut 

Copy selected text to Clipboard. 



cupboard. SetText Ac&verorm.ActtveControl Set Text 
Oe/efe selected toxt 
ActtwFormA ctveComrot. SeiTexx = - 
Case f • Copy. 

Copy selected text to Clipboard. 

CBpboanj.SetText AcovaForm.ActiveControK SeiText 
Case 2 'Pasta. 

Put Clipboard text In text box. 

AcbvoForm^cSvaControt.SatUxt ■ Cnpboacd.GetTextt) 
Case 3 'Delate. 
Oe/ere selected text 
ActivaFormJ^covaContTol.SetTaxt - - 



ft 
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Efid Select 
End if 

Casa "Paste* 

'mmEdUPastejCltck 

Case "Bold" 

Case Italic" 

Case "Undeiline- 

Case Xefl" 

— Case Tenter 

— Case "Right" 

_ End Select 
End Sub 



frmMainJrm - tbToolBar_ButtonC!i&k 



Private Sub mnuHelpContents ClickO 
Dim nRot As Integer ~ ' 

w£L I*"* 9 * message to leaser 
Vwca* set theHetpftle for your appScattonia the 
TVo/euf Pmperies dialog 

— lfUnCApp*elpRle)«OThen 

_ **** " UrtaW€ 10 Heip » "0 Help associated with this project*, vblnformatlon. Me.Caption 

On Error Resume Next 

nRet-0SV^elp(MeJ)VVM t App.HelDFae.3 0) 
If En Then MsgBox ErrJJ.scription ' 

— End If 
End Sub 



3 file user 



Private Sub mnuHelpSearcri CUckf) 
OimnRet As Integer ' 

JT Che re is M helptBe for this project display a message to t 
ywcajsetthe HeipKle to your apputa/on in the * 
Hroject Properties a slog 

— «Len(App>telprile)»OThen 

— Els? 880 * ^ t0 **** HC,P C ° rte ^ » ~ Help associated with this prelect ". vblnformatlon, Me.Caption 

On Error Resume Next 

T"- APP-HelpFBe. 261. 0) 
If Err Then MsgBox En-.Descnption 

— End I f 

End Sub 
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End Sub 



Private Sub mnuWindowCascade Ciick/i 
Me.Arrartge vbCascade - ,,Ck 0 

End Sub 



End Sub 



Private Sub mnuWindowTileVertical Clfewi 
Ma^nange vbTitoVerbcaJ verac aLCIiCk() 
End Sub 



Private Sub rrmuFileOpen CHckn 
Dim rAa Integer - u 

'•OpenPeMentDataT) 



— For r • 0 To FormsXount . 1 

Stlact Case F©fms(r).Name 

Caae "hnPtttentOottlngRepoft- 

mnPitl.ntOosinofteport.UpdatePattentCWdDisplay 

Case TrmDosingCatendar 

Updatt Calendar 

Cast TrmPrtnr 

RaftashPramw 

— End Select 

— Nextr 
End Sub 



Private Sub mnuFiieSaveAs Clickn 

SaveDataToNewFBe ~ U 

End Sub 
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frmMain.frm - mnuFilePageSetujPfir 




Private Sub mnuRlePageSetup C!ick() 
On Error GoTo rrmuFDePageSetup^COcK Error 

dlgCommonOiaJog.ShowPrinter 

mnuFiePageSetup_CItcx Exit 
On Error GoTo 0~ ~ 
Exit Sub 



mmjF8ePageSetiip_CHck_ Error 

Resume mnuFtlt Page Setup Click Exit 
End Sub ~ 



Private Sub mnuFHePrint ClickO 
frmPrfnLSrww 



'any error message wetftf heve already been sent by the cc-xxon dialog 



*•« set it back to norrr.af 
TrSZSXZr*** " VbW ^^ frmP^ndowState . vbNorma, 
End Sub 



Private Sub mnuFileSend CHckO 
To Do 

En?sS° X ' AWty to ^«^wD, be active inafuturo rolease- 



P ^r C Aa S ^r U ^ As Integer) 



End Sub 



» >*» integer 

O^.tiemDaU(rrmuFfleMRU0ndex).Captlon) 



Private Sub mnuFileExit Click/) 
'unload the form ~ f 

Unbad Ma 

End Sub 
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frmSpfash.frm - File Declarafforis 



Attribut, VB.QobalNamtSpaU « False 

Att^vB.Predtciamdld.True 
Attribute V8_Expos«d » Ftisc 
Option Explicit 




Private Sub Form Load() 

tno Sub 




WO 99/35588 



PCT/US98/22830 



frmLogin.frm- File DeclaraOofft 



Atotout.V8.N.mo-Thn t09 j n . 

AWbute VB^PredacJaredld » Tme 
A^ute VSJSxposed = False 
Option Explicit 



^^^^ 



Private Sub Form LoadO 

Own sSufler As Strfno" 
Dim ISfceAslong 



Me .Mov. ftmSp.asn.Left ♦ 4000, IhnSpiasn.Top ♦ 350 0 



E 



sBuffsrs Space J(2S5) 
ISfce • Lan(sBufl*f) 

^bttUferffcima - Lett$(s8uffer, iSize) 

txtUaerName « vbNuHSbing 
end If 
End Sub 



Pt £&2L b cmdCance Lci«ck() 

Me.H«e 
End Sub 



Private Sub cmdOK Clickf) 
OK- True 

lm0Locked.Vlsible « False 

^gUnJocked.Vb.WeaTrue 
wan 1.5 

■ Else 

^Locked. Visfola - False 
WW 005 

ImoLocked. Visible • True 
Wait 005 

Jj^cJced.Vlsibte « False 
WWtO.05 

impXockad. Visible « True 
Me.MousePobttar « vbOefault 



Win.*., login" 



MsgBox "Invalid Password, try 
txtP»sswonJ.SetFocus 
txtPassword.Se IS tan * o 
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frmLogin.frm. cmdOK_qte£; 



End Sub 
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frmOptions.frm - File Decfarwiaas 



Attnbuta VB.Nwne • ThnOpUons" ' -f7T 

Attribute VB.Qobal^^H Falu I 88 

A^! V*-?™***™** - True 
ABrtbue V8_Exposed ■ Pais* 
Option Ejtpocit 



P ^ teSub ^nConfigureFax Clickn 

Me .MousePoimar * vbHouralaM 
gcFax.AutoDttect 
With IbiFaxOevice 

SSS^TSSS?^ 8 F « Ptoaae welt . few seconds, 

.ForeColoraAHOA oackgrcvn* 
.Refresh 



EndWKh 
End Sub 



Private Sub c/ndApply Clickn 
Dim .section Aa String ° 

gllateetOpUonsTabSetected « sstabl.Tab 
set Me p/o6*/ ve/ua fo to selection 

^jpwoCompflancerimeRange « 0.5 

^WCompOanctraneRanje « 1 

c jW<^P^ceTlmeRangeat.5 

Ca 2 n » c «npB«nceToneRange.2 

Ca ^|Compfl 3 nccTlmeRan58 • 2.5 

Ca ^ r | Ccm P &an c«Tlm«Ranoe o 3 

— Ca ^ Com P D8nceT '«^Range.3.5 

_ casTe Con,paanceTimeRan8 *' 4 

_ ^^C°mpfiancarxn.Rang e «4.5 

— CaaT?0 C ^ PflanCO71meRan9e " 5 

c. $ T?i C ^ Pfi * ncer,meRan ^ * 55 

gsngComplianceTTmeRange « 6 
End Select 

RefreshABOpenForme 

$»V9 thi Fax Information 

WWiFAX_QATA 
.sSenderName«txtName 
^SenderCompanjr « txtCompany 

-•Sender? axNumoer • brtFaxNumber 
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'™Options.frm- cmdApptj^Ecr 



.sFaxJD ■ MFwfo 
.aOiilPrBftr • txtOialPreftx 
-WetriM - ViJ(ixW eWM) 

Jgassssss. 

vtivostxirtot Fax cn»r~* * 

WHhFAX.DATA 
fwlNISeWng gsF axFBeSpec »s«f*«^ 

S«vtmiS€«ng osFwFBeSpec; ise2£» 2*1!?" *Sei*erN»n,e 




End Sub 



Private Sub cmdOK ClickO 

UntoadMe 
End Sub 



End Sub " 



^boCo m pr an «Tlm. Ri ,n 9 e.U S ttndex . 0 
Uxtlndrx • 1 

^mpti.nc.r.m.Range.Lbandex « 2 
<«^Compf«nceTlmeR,^e.Usttnd«x « 



K»3 



«»4 
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frmOptions.frm- Form Loaa 



— Cim3 

Ca ^Comptonce7]n»eRan 8 e.Usnndex - 6 
^^oComplianceTlmtRa^e .Ustmdex . 8 

_ ^oComplJanceTlrneRang..^,^.^ 

emi s T^ Comp,iancer "" eR »^'^x . „ 




cmboOates.Ustlndex « o 

Case -Short Oaie" 
cmboOate*.Lisllndex > o 

Case "Medium Date" 

cmboDatesXIstlndex a i 

- Case -Long Date" 

cmboDatesXistlndex « 2 

- End Select 

1 ^Sse^" ^ToneOisplayFormae 
cmbortmea.Listlndex » o 

- Case "Snort TTme" 

emboTlmes.Ustlncax ■ o 

- Case -Medium Time- 

cn^oTimes.Ustlndex - 1 

- Case -Long Tbne- 

cmboTimes.UsHndex » 2 

End Select 



brtN*me • .»SenderNam8 
^•mpany - ^SenderCompany 
brtVorceNumber « .JSendorVoiceNuni^r 

txtCHaJPnefix • .sOtalPnfo 
WRables • CStr(JRetnes) 
b^etryintemr • CStrMRetiymterval) 
chkResohrtion.Vatue = bFa^J.^JL« . 
EndWWi wwResolutton o^tcw. i»fugn 

■JM-T.b - giUtestOpttonsTabSelected 
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frmAbout.frrn - File Declarations 



Attnoute V8_Name « TrmAbouT 
Attribute VB GtobalName Space > Fats* 
Attribute VB~Cre§Ubte • false 
Attribute ve_Predectar«dld « True 
Attribute VB.Exposed - False 
Option E x pl i c i t 

* Reg Key Security Options... 

Const KEY_ALL_ACCESS - AH2003F 



" /?ej Key flOOr Types... 

Const HKEYJ.OCAL_MACHINE « 4HB0000002 
Const ERROR_SUCCESS ■ 0 

Const REG_SZ ■ 1 * Unicode nur tenxinetec stone 

Const REG.OWORO » 4 • 32-o/r nvnoec 



Const gREGKEYSYSINFOLOC ■ "SOFTWARE\WicrosoftVShared Tools Location- 
Const OREGVALSYSINFOLOC » "MS INFO* 

Const gREGKEYSYSINFO » "SOFTWAREWterosorttShared Tools\MSINFO- 
Const gREGVALSYSINFO « "PATH" 



Private Declare Function RegOpenKeyEx Lib "advapi32" AOas "RegOpenKeyExA* (ByVaJ hKay As Long, ByVal IpSubKey As String ByVal 
V uiOptlorts As Long. ByVal samDestred As Long. ByRef phKResult As Long) As Long 

Private Declare Function RegOueryVatueE* Lib "aoVapa2~ ASas -RegQueryVarueExA" (ByVal hKey As Long, ByVal IpValueName As String 
\e ByVal IpReserved As Long. ByRef tpType As Long. ByVal IpOata As String. ByRef IpcbOata As Long) As Long 

Private Declare Function RegCloseKey Lib *advapOr (ByVal hKey As Long) As Long 

Private Sub Form_Load() 

IbtVerslon. Caption = ""Version * ♦ App.Major ♦ V ♦ App.Minor ♦ V ♦ App.Revlslon 
* tbtTitteCsption * App.Tiee 
End Sub 



Private Sub cmdSysinfo_Click() 

Call StartSyslnfo 
End Sub 



Private Sub cmdOK_Click() 

Unload Me 
End Sub 



Public Sub StartSyslnfof) 
On Enor GoTo SyslnfoErr 



Dim re As Long 

Dim SyslnfoPath As String 



F 



* Try To Get System Info Program PathWerr.e From Registry.. 

W GetKeyValue(HKEY_LOCAL_MACHtNE, gREGKEYSYSINFO, gREGVALSYSINFO, SyslnfoPath) Then 

' Try To Get System Info Program Petti Ontv From Repsny.- 
Elself GetKeyValue(HKEY,LOCAL.MACHINE. gREGKEYSYSINFOLOC. gREGVALSYSlNFOLOC. SyslnfoPath) Then 

* Vttidit* existence Of Knoxvn 22 BH File Verston 
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frmAbout.frm - S tart Sys Info 

_____ _____ ^ 



If (Otr(SyslnfoPath ♦ "\MSINF032, EX E~) <> -) Then 

SysinfoPath » SyslnfoPath ♦ "\MStNF032_EXE" 
* Enor • File Can Not 3e Fcunti.. 

Ebe 

Go To SyslnfoEn* 

— End If 

* Error - Regstry Enffv Can Arof 3e 5cun<j 

— Else 

Go To SyslnfoErr 

— End If 

CaD Shen(SyslnfoPath. vbNormalFocus) 
Exit Sub 

SyslnfeEir 

MsgBox •System Information is Unavailable At This Time", vbOKOnly 
End Sub 



Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String. ByRef KevVal Ac c. 

Dim i At Long 'Loss Counter 7 y MS b 

Oim re As Long • Rgturn Cede 

Dim hKey As Long - Handle To An Open Regstry Key 
OtmhDepthAsLong 

Dim Key ValType As Long • Data Type Of A Regstry Key 

Oim tmpVal As String • Tsmpory Storage For A Regstry Key Value 

Dim Key ValSEe As Long • size Of Regstry Key Vanabte 

' Open RegKey Under KeyRoot {HKB Y_ L OCAi_ MACHINE. . .) 

re ■ RegOpenKeyEx(KeyRoot, KeyName. 0. KEY ALL_ACCESS, hKey) * Ooen Registry Key 
lf(ic<>ERROR.SUCCESS)ThenGoToGetKeyEm>r ' Handle Error..: 

tmpVal » String*(1024 # 0) *>Wocafe Variable Space 

KeyValStze - 1024 • Mark variable Size 



'Retrieve Regstry Key Value.. 



E 



re • RegQueryValueEx(hKey, SubKeyRef, 0. KeyVafType, tmpVai, KeyValStee) * GetAZreat* Key Value 
If (rc o ERROR.SUCCESS) Then GoTo GetKey Error ' Handle Errors 

If (Asc(Mid(tmpVaL Key VatSize, 1))»0) Then ' W&i95 Adds Null Terminated Stnng... 

tmpVal « Lert(trnpVal. KeyValSize - 1) ' NuB Found. ExxactFrom Stnng 

Ebe ' WlnNT Does NOT NuB Terminate String.^ 

tmpVal » UftflmpVat, KeyValSfee) 'Nun Not Found. Extract String Only 

End If 



_ 



' Determine Key Value Type For Conversion.,. 

Select Case Key VarType • Search Oata Types... 

- Case REG_SZ • string Redstry Key Data Type 

KeyVal ■ tmpVal • Copy String Value 

Case REGJ)W0RD • OouWe Word Regstry Kay Data Type 

For I » Len(tmpVar) To 1 Step -1 • Convert Each Bit 

Key Val » KeyVal ♦ Hex(Asc(Mid(tmpVal. i. 1 ))) ' Build Vaiue Char. 3v Char. 
Next 

KeyVal = FofmatSf&h" ♦ KeyVal) ' Convert Double Word To String 
End Select 



GetKey Value » True * Return Success 

rc - RegCJoseKeyfhKey) • C /ose Regstry Kev 

Exa Function >£ xtl 



GetKeyErroc ' Cleanup Alter An Error Has Occvred. . 

* Set Rearm V»i To Empty String 
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frmAbout.frm - GetKey Value 



/// 
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frmBrowser.frm - File Declarations 

95 



Attribute VB_Name * trmBrowser* 
• Attribute VB~GlobaJ Name Space » False 
Attribute VB Zcrcatabte ■ False 
Attribute VB_Prededaredld • True 
Attribute VB.Exposed ■ False 
Option Explicit 

Pubflc SUrtingAddress As String 
Dim mbDontNavigateNow As Boolean 



Private Sub Form_Load() 
Dim r As Integer 

"On Errcr Resumo Next 
Me.Show 
IbToolBar.Refresh 
Form_Resire 

— If UrHStartingAddress) > 0 Then 

CboAddress > StartingAddress 
cboAddress-Addltem cboAddress 
try to navigate ro Che starting address 
tlm Timer. Enabled » True 
brwWibBroweer.Navigate StartingAddress 
Me.Mouse Pointer • vbHourgiass 

- End If 
End Sub 



Private Sub brwWebBrowser_DownloadComplete() 
On Error Resume Next 

Me.Captton « bnevVebBrowser.LocatlonName 
Me AtousePointer » vbOerauS 
End Sub 



Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String) 
Dim i As Integer, r As Integer 



Dim bFound As Boolean 
On Error Resume Next 

Me.Captton - brwWebBrowser. local tonName 
For i » 0 To cboAddress. LrstCount - 1 

WcboAddress.Ust(l) - brwWeb Browser. LocalkmURL Then 
bFound • True 
Ex* For 
End If 
ixtl 

mbDontNavigateNow * True 

If bFound Then cboAddress. Re move Item I 

cboAddresaLAddltem brwWebBrowser.LocatlonURU 0 

cboAddress, List! nd ex « 0 

mbDontNavigateNow - False 

On Error GoTo 0 

Me. Mouse Pointer * vbOefouft 

lasf tfme fo visit the Internet 

•Save new date in IN! Se mar an affempf (or success) was made to visit 
the Internet web site on this date 

r - GeUWSetting(gsApplniFileSpec, "Web Data" "Connection Reminder Days". 100) 

SavelNiSetting gsApplniFneSpec. "Web Data". "Next Web visit Reminder Date-. FormatS(Now ♦ r. "Medium Date") 
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f rmBrowser.frm - brvyrWebBrowserJsiavigateCoi Me 

_____ i ^ 



SavBlNJSetting QsApplniFBeSpec. *Web Oata*. \ast Web Visit Oate*. FormatS(Now. -Medium Date") 
end Sub 



Private Sub cboAddress_Ctick() 

H mbDont Navigate Now Then Exit Sub 
ttmTtmer.Enabted * True 
brwWe 08 rowser. Navigate cboAddress.Text 
Me JdiousePointef » vbHourglas j 
End Sub 



Private Sub cboAddressj<eyPress(KeyAscii As Integer) 
On Error Resume Next 

If KeyAscn » vbKeyRatum Then cboAddreas Click 
End Sub 



Private Sub Form ResizeQ 

Me.Refreah 

If Me.WJndowState ■ vbMinimked Then Exit Sub 

brwWebBrowser.Move brwWebBrowser.lett. brwWebBrowser.Top, Me.ScaleWldth . 100. Me.ScaleHelght - (prUAddress.Top < 
» pntAddress.Height) - 100 
* brwWet Browser. Width a Me.Sca/eVWdm - 100 

' ttrwW»bBrowzer.H*ight » Me.Sca/e««g»f • (pniAddmss.Top ♦ pn(Ad<Vess.HergM) - 100 

cboAddress.Move cboAddress.Le(t, cboAddresa.Top, pnlAddress. Width - cboAddress.Lert - 100 
End Sub 



E 



Private Sub timTuner_Timer() 

If brwWebBrowser.Busy » False Then 
UmTlmer.Enabied » False 
Me.Caption » brwWeb Browser. LocationNa me 



Me.Captlon « "Locating Web Site../ 
End If 
End Sub 



Private Sub tbTooiBar_ButtonCHck(ByVal Button As Button) 
On Error Resume Next 
Urn Timer.Erta bled « True 
■ Select Case Button JCey 
' Case "Back" 

brwWebBrowser.GoBadc 

Case "Forward" 

brwWebBrowser.GoForward 

Case "Refresh" 

brwWebBrowser.Ro fresh 

Case "Home* 

' trwWtbBrowssr.GoHome normally takes browser to ;he regfsfe/eo Acme pace 

cboAddress » StartingAddress 

try to n&vigtte to me sreroog acteres* 

HmTlmef.EnaWed ■ True 

brwWebBrowsef .Navigate StartingAddress 

Me.MousePolnter « vbHourglass 

Case "Search' 

brwWebBrowser.Go Search 
— Case "Stop* 

■ ■ ... M S 
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. timTimer.Enabied = Pais* 


H 




brwWtbBrovwer.Stop 




\ Ma.CapUon « bfwWabBrowaer.locatkmName 




I End Setae* 





End Sub 
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frmTip.frm - File Declarations 



Attribute V8_Naroe • -frmTlp- 




Attribute VBJ3iob*JName Space • False 
Attrfcute VB_Creatabta - False 
Attribute V8 Prededaredid o True 
Attribute VB_Exposed « False 
Option Explicit 

' 77ie in-memcry ca:abese of bps. 
Dim Tips As New Collection 

' Atome cf tips file 

Const WPJFtLZ = "71POFOAY.TXT" 



Private Sub DoNextTipQ 

Index in cstlecaon of tip currently tetng cisctayed. 
'cycle through Lie Tips in enter 

giCurrenfRp • gJCurrentTTp ♦ 1 

If TipsXount < glCurrentTip Then giCujrentTip * 1 

'Showil 

fmiTip.DisplayCwentTip 
End Sub 



Function LoadT1ps(sFHe As String) As Boolean 
Oim NextTlp As String 1 Eacn op road in from file. 
Dim InFBe As Into oe r ' Descriptor for IBe. 



c 



* Obtain the next free file descnptor. 
InFBe ■ FreeFQe 

" Mate sun efOeis specified. 
If «FUe * " Than 
LoadTips • Falsa 
Exit Function 
End If 

* Mete sure the file exists before trying to open it. 
If OhtsFBe) = - Then 

LcadTips • False 
Ex8 Function 
End If 

' Read the coQection from a text file 
Open sFBe For Input As InFile 
While Not EOFOnFlle) 
the Input flnFBe. NextTip 
Tips-Add NextTlp 
Wend 
Close InFOe 

* Display » cp at random. 
DoNextTtp 

LoadTips » True 

€nd Function 



//r 
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frmAIIPatients Jrm - File Declaraiibns 







Attribute V8_N*me - TrmABPaUemV 





Attribute VB GtobelNemeSpace ■ False 
Attribute VB_Creetable - False 
Attribute VBJ'rededaredld • True 
Attribute VB_ Exposed « False 
Option Explicit 
Dbn xbAJIPatientsForrnLoading As Boolean 

Dim JtsPatkntFUeSpecsO As String dynamic array holding me names of pattern files on disk 



C 



Private Function CalculateSinglePatientCompliance(DataStruct As DeviceDataStruct) As Double 
Ca/ctf are the compliance for the patient in memors 9 no ssss result back to caBer 
Vsa the settings of the dalcg to determine deviations and date ranges. 

Dim IDateBegln As Long. IDateEnd As Long, I As Long, IScoreSum As Long 
Dim IPtotVaJue As Integer \eeps a ta&y of the value to t>e pte.-wc tor eeat day 

(OateBegin » txtStartOate Ir.tfDataShvctsEve.vOaiei t }) 

IDateEnd • MEndDate ^ntfDataStrjct.daventDatetDataStrvt^EventOaraiOt)} 

- If OateBegin Then 'there is at ieas: a vaiue in mere 

— Stlect Case onto Data To View.Ust Index 
Case 0 'Dcses per day score (all doses on this da y regardless of time taken 

For I ■ IDateBegtn To IDateEnd 

IPIotVelue ■ CatcOayOoseScore AflDoses(Oata Struct, I) 
IScoreSum ■ IScoreSum ♦ IPIotVatue 
I 



Calculate Single PatientCompliance » IScoreSum / (IDateEnd - IDateBegln ♦ 1) 

Case 1 'Compliance Doses per day (cn time doses per day) 
For I ■ IDateBegln To IDateEnd 

IPIotVatue « CaJcOayOoseScore OnTVne(DataStruct, Q 

IScoreSum « IScoreSum ♦ iPlot Value 
Next I 

CakwIatoSmgtePatlentCompUanca - IScoreSum / (IDateEnd - IDateBegln ♦ 1) 

Case 2 Doses Taken 
For I ■ IDateBegln To IDateEnd 

IPfcrtVahie = CatcOosesSumTakenOnSpecJncOay(OataSlruct I) 
IScoreSum » IScoreSum ♦ i Plot Value 
Next I 

CeJculateSlnglePatlenlCompJlance - IScoreSum / (iOateEnd - IDateBegln ♦ 1) 



End Select 

- End If 
End Function 



Private Sub btnClose Clickf) 

Unload Me 
End Sub 
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frmAHPatients.frm - cmboDataTov1ew_Cfi<; 

' • " " 1101 



Private Sub cmboDataToView Clickn 

CalcutoteAHPatlenfeComptianceOnoisk 
Slider1_SIIdeChangB 
End Sub 



Private Sub cmboDateSelection_C!ick() 

— Select Case cmboDateSelecttoivUsUndex 

— Case 0 Vectfif 7 days 

txtEndOate • CDate<lrtf<Now)) 
txtStartDate ■ CDete(lnt/,Now) - 7) 

— Case 1 . * 'ncant M cays 

txtEndOate ■ CDateflnt(Now)) 
txtStartDate - COate<lnt(Now) - 14) 

— Case 2 'ncent 30 days 

txtEndOate * CDattflnt(Now)) 
txtStartDate ■ CDate(lnt(Now) • 30) 

— Case 3 Vecenr 6 months 

txtEndOatt - COate(tnt(Now)) 
txtStartDate ■ CDate(tnt(Now) - 180) 



E 



Cese 4 'an data 

If PAT_DATA.IEventData(0) Then V)cn are some events in amy 

txtStartDate « CDaf0nt(RAT_DATAtiEventOatatim 
End If M£/i<iD ' t9 * &at90nt(PAT_DATAJEv*ntDate(PATJ>ATAJEvantDXa<0»)i 

Case 5 'custom dares 
If psLastStartOateChosen * - Then 
£ JxtStartDate - C0ate(tnt(PAT_DATAulEvBntOate(1)» 

txtStartDate ■ gaUstStartDate Chosen 
End If 

- If gslastEndOaleChosen « - Then 

^tEndDate • COate(lnt(PAT.OATA.deventDate(PAT.OATA.IEventOata(0)))) 

txtEndDate • gsUstEndOate Chosen 
End If 

End Select 



C^taitoteAIIPatientsCompfianceOnOisk 
SBdetl^SWeChange 



End Sub 



/// 
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frmAllPatienis.frm- Form_Ac1h/ate 




Private Sub Form Activate() 

Me.Refresh 
grid .Refresh 
S8der1_SIIdeChango 

SetPrtntertccn True. "APrint AH Patient's Summary " 
End Sub 7 " 



Public Sub CalculateAJIPatientsComplianceOnDiskO 

This procedure is called when if is necessary ?o cedars '/>- ersc/a-/ 
'eve ro some element or feature being changed. ' 

Iso* $t aO device data files in the xpeaSed ciracsr, 
Retrieve appropriate daft from each Ge end put into a dobei 
'svuca/re holding ea patients. 

If xtoAlPitientsf ormLoading « True Then Exit Sub 

Dim r Ae Integer, I As Integer, dCompttance As Double 

Dim sPath As String. sFdeName As String. sFBeSpec As String 

Dim sTsb As String, aTemp As String, lErrorCode As Long 

On Error GoTo Calculate AD Pa tientsCompJia nee OnDisk error 
Ms. Mouse Pointer » vbHourgtass 
Ma .Refresh 

sTab • Chrj(9) 

■ ReDimxsPattentReSpccs(1) 'deer out tht old atrey 
grid.Oaar 
grid .Rows ■ 1 
- lfcmrjoDatoToVlewXrstlndex«2Trien 

list Hem numbers (Index 2) «es requested to be teken out The code isstUin the program 
lrt case anyitteraSon of it is needed later on. 
^rrdJormatStrtng - "< Patient Name |< Patient 10 J< Start Date }< Last Dose |> Doses " 

^rW JormatString « -< Patient Name |< Patient ID J< Start Date |< Last Dose |> Score * 
Form_R«ste« 

grtd.Col ■ 1 set to column 1 

god. Redraw - false turn off redraw to speed up processing 
sPath « App.Path ♦ ^Patient Ostar 

r^ D ^!«iS! ,SaS(Db l (tP,th * "■ c P d ")) " Olenemes 

' JOl** ~. 'read an smngs from directory 

sFieSpec ■ sPath ♦ sFBeNama 
f - 1 ♦ t 

toad the data tortNs patient Into globe* array 
r^^PatiefltDaUFromOWc(sFBeSpec, TEMP.OATA, lErrorCode) 

1U ?, 9CHSum9rT ? r °f other error occurred on in the above function, 
dont include the (Be m the summary end warn user. 

raff twone fo calculate compliance based on dialog settings 
dCompfiance • CaJculateSmglePaHerrtC^mptrancefTEMP.OATA) 

"Put results into gnd 

, Ja^«d^ P ^ TA ^* U€nlla8tName * V * ^ p - DATA ^^mPlrstName ♦ sTab ♦ TEMP_DATA.sPaUentIO ♦ sTab get 
sTemp • sTemp ♦ FormatSfTEMP.OATA.dEventDate(l), -Short Date") ♦ sTab 'gef erst dose date 
t~ " *I emp * F i rmaK ( TEMP -OATA.dEventOate(TEMP - OATA.IEventData(0)). "Short Date") 'cef lest dose date 
•Temp . sTemp ♦ sTab ♦ Fomia»{CStr(dCbrnptonce , TKT) get compute 9*< i*st dose date 

If cmboOataToview.Ustlndex <> 2 Then sTemp * sTemp ♦ ' 

grklAddttem sTemp 
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lANPatients.frm - CalculateAHPatientsComplianc iOi$"K 



grid.RowO»ta{l) » I - t 

If I »• UBound(xsPatiemFileSpecs) Then ReDim Preserve xsPatientFUeSpecsfl ♦ 10) 

VSSS^SS^i^ s * teS P« c **eP name of the file re* for tvnen user cac*s oo cell 
IS T if LCase$(D.r) ^ next £ie icre 0 

grld.Redraw » Trua 
— Lo °P process net: filename 

grid. Redraw ■ True 

CafcutateAUPatlentsCompfianceOnDtsIr Exit: 
Me.MousePointer ■ vbOefautt 
Exit Sub 

CalcutateARPatlentsComplianceOnDisk error 
~ Resume 0 testing amy 

Resume CalculateAJIPaiientsCompfianceOnOtsk Exit 
End Sub 



Private Sub Form_Load() 

frmMain.MousePoim7r « vbHourgJass 
Do Events 

xbAJIPatiefttsFonnloadlng « True 
ReOim xsPattentPileSpecs(2) 

If OTboDateSeIecbon.Usandex < 0 Then cmbcOateSelection.Lhrflndex - 2 $er * deficit 

cmboOataToView.Ustlndex » o 

xbAIIPatientsFormloadlng • False 

CateulateAIIPatientsCompfianceOnOisx 
grid.CoM 0 

grid.Sort e t 'generic ascending 
frmMaJaMousePointer » vbOefautt 
RelroshADOpenForms 

End Sub 



Private Sub Form_Resize() 
Dim MAdthRernatning As Integer 
Static bProcedurelnProgress As Boolean 
If bProcedurelnProgress Then Exit Sub 
If Mt.VMndowState « vbMinimiztd Then Exit Sub 
bProcedurelnProgress » True 



C 

r 



If Me.Wdth< 5000 Then 

Me.Wldth « 5000 

bProcedurelnProgress « False 
End If 

If Me.Helgftt< 5000 Then 

Me.Height ■ 5000 

bProcedurelnProgress = False 
End If 



SSPanell.Left « Me.Widm . SSPeneM.WWth . 100 
grid.WWth « SSPsned.left - gnttleft - 150 
grid.Hcight • Me.Hefght - grid.Top - 425 

grid.CoIWWth(4)«625 -Score 

" WW*h - grid.ColWidth(4)) l (grid.Cols - 1) Nam* 
gnd.CorWlo^(l)«grid.ColWdm(0) 70 

lV ^ R ^fj^ g C 9rtdAMt,lh • Snd-CoJWlcflh(O) - grfdXoMAdth(1) - grid.CoTWIdth(4) . 120 
gndXoWVWm{2)«rwkfthRemaining/2 'Start Date 
grid.ColWldlhO) » grid.CoiWidth(2) lasf Dose Date 
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frmAIIPaHents.frrn- Form_Resize 

" " 1 104 I 



bProcedurelnProgress ■ False 
End Sub 



Private Sub grid_Click() 

Dim IRow As Integer 

'rind out which cziuntn was clicked 

'Sort the array crjy if me header was oickec 

If grid.Rows < 2 Then Exit Sub 

IRow * grid.MouseRow 
If IRow »0 Then 
grid.Col ■ grid.MouseCol 



grid.Soit « 1 'generic ascending 
Exit Sub ' 



End If 
End Sub 



Private Sub grid_DblCfickO 

Dim sfileName As String, r As Integer, iRow As Integer 
If gnURows < 2 Then Exit Sub 

IRow ■ grid.MouseRow 

sHeName «xsPatientFaeSpecs(grid.RowOata(IRow)) 

"open the document that was double-cticked 
r • OpenPatlentData(sFBeName) 
End Sub 



Private Sub SHder1_SlideChange() 

Dim I As Integer, J As Integer 

^MJie^^^Faisl X ° mpfianc ' ^^oW *< ■ ♦ CStrfSliderl .Value) ♦ 

- Forl« 1 To grid.Rows - 1 

lfjWPri*ots.sScon<gridAo W Data(i» < Slide*. Value Then 
gnd.Row * \ 
grid.Col » 4 

If grid. Value < Stiden .Value Then 
ForJ«0Togrid.Cols-1 
grid.Col «j 

grfd.CenBackColor » &HC0FFFF 'SHCQCOPF 
Next J 
Else 

Forj«OTogrid.Cols-t 
grid.Col «j 

grid.CeaBacJcColor * 0 
Next] 
End If 
Next I 



grid.Row ■ 0 
grid.Col • 0 
grid.Redraw * True 
End Sub 
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frmAIIPatients.frm - SIider1_SlideCharig< 




P O^E«^ Ub txtE " dDate ^ Hid eOropDown() 
gslastEndDateCnosen = txtEndDate 
cmt>oDateSetectlon.Latln<tex - 5 -^ecf •»* 

CalculaieAIIPaUentsComptianceOnDis* ? 
Sllder1_SlideChange 
End Sub 



Private Sub txtStartDate HideDropDownn 

Do Events w 
gsLastStaitDateCnosen « txtStartDate 
cmboOateSelection.Utf Index » 5 - ss[ect the .... 

CateuiataAllPatientsCompfianctOnOisk " 
SBderl_SlideChange 
End Sufi 
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Attribute VB_Nam« s TrmPatlentSummary' 
Attribute V8_Global Name Space ° False 
Attribute VB_Creatabto « False . 
Attribute VB J'redeclaredld » True 
Attribute V8_Exposed » False 
Option Explicit 



frmReceniDosingGraph.frm - File DectaratU 

________ ^ ^ 



Public Sub UpOatefnmPatientSummaryHeaderO 
Dim OataStruct As Device DataStnict 



E 



OataStruct * PATOATA 

txtPabentUstName « " - ♦ OataStruct sPaflentlastName 
brtPatientRrstName « ■ " ♦ OataStrucLsPatientFtrstNarne 
brtPatientlD « ■ * ♦ OataStn/ctsPatienOO 
brtOrug » DataStructsOfug 
bctTxCenter » " • ♦ Data Struct.sTx Center 
txtOrgan «**♦ OataStructsOrgan 
H OataStructdLastDownloadDate Then 

^etrievalDate - FoanatS{DataStruct.dLastOowntoadDate, gsOata Display Format) 

bttRetrievalOate « * - 
End If 

txtSerialNumber « — ♦ OataStruct sSerta (Number 
MSCharti .Visible -True 

!L?S b ^ at , eSe _: tl0n *^l!? deX * 0 T*" 1 «nb°OateSelection.Usttndex » 1 'pick a detau/f ™ C e 

End Sub 

Public Sub UpdatePatientDosingGrapbO 

T/pdafe ffie orapA due fo a checA box be/no chenaed 
Dim sTab As String, I As Long 

S£ ™ !S7 h * A 'i* n9, l0ateEnd As 'ScoreSum As Long 

Dfe SSISiTifr^S 5 ' V epS * ro be p/offed/oreac/i day 

Dim dPIotDate As Double. iOayEventsFound As Integer. iDatelndex As Integer 

Me. Mo use Pointer e vb Hourglass 
DoEvents 



E 
E 



If IsDate(txtStartDate) Then 

IDateBagin » lnt(COale(txtStartOate)) 
Else 

IDateBegm » lrtt(PAT_0ATA.dEventDate(1)) 
End If " 

IMsDateflxtEndOate) Then 

IDateEnd » int(CDate(txtEndD*ta» 
Ebe 



^OateEnd * lnt(PAT^0ATA.dEventOate{PAT.DATA.iEventData(0))) 
MSCharti .RowCount « 0 

S52?!!*_ ^ PAT - DATA -<^ntDate(1 )) ger me ft» ever* cafe 
ir (DateBegin Then 'fore is at teas: a vaftre in ttere 

Select Case cmboOataToView.ListJndex 

Cat * °, «_ ^^ ses Ay * co '* ra * ec " s e/J ** ess cf tirr -* t*** 1 * 

J,^?! te *? n . T ® ,0ate£nd nutnttrct events is stored hen? 

iPlotVarue » CatcOayDoseScoreJUlDosesfPAT DATA. I) 
MSChart1.RowCount • MSCharti .RowCount ♦ T Increment fire nwcount 

fJfS__!] ■ MSCharti .RowCount rn /esr row 

MSCharti Oata ■ IPtotVaUie 
IScoreSum « IScoreSum ♦ IPlotVarue 
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Next I 



'nRecenlDosingGraph.frm- UpdatePatientDosm -apir 

- — - - 1 107 



•«f2£n«^ n ^S t t mUnAa9$uh - T ^ 9 * VtChSceleTypePercent • TCO s« sco/e to oercenr 

0t ^ S ^° lAxW<,y) ' AjtisScal « T yP« d VtChScaleTypeUnear 
MSChartt.PlqtAxi3<VtChAxisWY).V8iucSc»teJVuto - false 

?^ rt1 ^ totJVj ^^^^J.VahieScale J^jmuni - 100 
MS^rt1.Ptat.^i 5 (^CWxbidY).Vah^Scate.MaiorDMs»on « 10 
H!^ rt ! ™ eText " ' Oo^Day Scon (regard lew of presented time)" 
MSChartl .Ptot.Axis(VlChAxlsldY)A*isTiUe.Tex1 « "PercenT 

txtScore • Fomwt5(CStr(lScoreSum / (IDateEnd . tOateBegin ♦ 1)). "##")♦•%- ^ me WMf Kwe , fl <7)e 

Case 1 'Compliance Dcses per tfjy ( cn toe dcses per day) 

For I « IDateBegin To IDateEnd aumter 0? is stored here 

•PlotVelue « CalcDayOoseScoreJDnTimefPAT DATA, I) 
^?5? aft1 ? owCount " MSChaitl .RowCount *"l y ftCre ^e W the ,w cot/*/ 

MSChartl .Row * MSChartl .RowCount Wof m lest row 

MSChartl. Data •JPlotValue 
IScoreSum » {Score Sum ♦ iPtotVatue 
Next I 

MSChartl. Plot Axis<V1ChAxisJdY)AxtsScaJe.Type « VtChScaleTypeUnear 
MSChartl .Ptot.Axis(VtChAxisldY).VatueScale Auto - False 
!?f ?! rt1 ^4 3 ^ ChAjfW ^ValueScaleiy!aximum • 100 
MSChartl. Plot Axls(VtChAxisldY).ValucScale.MaJort>ivision ■ 10 
»eS*!lM!!! e T ex! ° "° lvTlmi Ows/Day Score (within prescribed time)" 
MSChartl .PtetAxis(VtChAxisldY) AxisTttle.Text « "Percent" 

txtScore - FormalS{CStr(IScoreSum / OOateEnd . tOateBegtn ♦ 1)). • #*-) ♦ • %- tte mosf „ cen , Mw m w# ftJtf ^ 

Case 2 'Doses Taken per toy 

FW tl ZJ^ 9Be t n T ° tDate£nd *3>e *imD«r or evens Is stored Aere 

iPtotValue « CalcDcsesSumTakenOnSpeciflcDay(PAT DATA. I) 
MSChartl .RowCoum « MSChartl .RowCount ♦ 1 ~ Increment the row count 
MSChartl .Row ■ MSChartl .RowCount 'plot in test row 

MSChartl .Data * IPlot Value 
Next I 

iJfS^lIJ ^J°h^ 8( ^ Cn ^ telc,Y ^ A *faScBle.Type - VtChScaleTypeUnear 
MSChartl PtoUWsOAOtAjdslcfyj.VaiueScale Auto - False 

MSChartl J>totAxls(\rtChAxJstoY).ValueScaleJWaJorOWIsion • 10 
MSChartl ^totAxls{VtChAxJsio^.ValwScale JiflwrOlvlslon = 1 
MSChartl .TittoText « ■ Total Doses Taken Per Day- 
MSChartl -PtoLAxis(VtChAxisldY)AxbTaie.Text * "Doses" 
txtScore * - 'no score appears for doses sum 

Case 3 Voses Missed 

'Mftj. this section is not used current:/. dent decided to remove it from the display 
"LilS T Be SI J 0 ' DaleEnd »• m^nfer 0/ e*«nfs /s stored here 

uSESt p^""^ TAJOosesPerOay . CalcDosesSumTakenOnSpeclfk:Day(PAT DATA. I) 

fij^^"" 0 ^ " MSCha «1.RowCount ♦ 1 incremenf the rowclunt ' 

!1?S?2 * MSCh * rt ' ^Count 'plot in last row 

MSChartl .Data -IPtotVatue 
Next I 

J!f ^ rt1 ^^^^^^-AxisScale.Type - VtChScaleTypeUnear 
MSChartl J»totAxis{VtChAxlsldY).ValueScale Auto • False 

MSChartl •PtoUVxis{VtC^isldY).VaJu C Scate.Maxiniurn - 10 'client wants to hard code this at 10 

MSChart1.PloL^is(VtCriAxlsl(fO.ValueScale.Ma)orOiWsto -10 

M 55 tart1 ' Pto ^ i ^ C ^ w ^VaJueScale.MlnorDhrision - 1 

•MSChartl .Hot Ans(VX:hAxistdY)JUdsSca!e.Hide ' False 

MSChartl .TttleText » ' Doses Missed Per Day" 

MSChart1.PtotAxis(VtChAxisidY)AxlsTrtle.Text - "Ooses" 

txtScore * - 'no score appears for doses missed 

End Select 

— End If 

'MSChartl. xaxtssse ■ test* 
Me^ousePotnter » vbDefaurt 

End Sub 



/*3 
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frmRccentDosingGraph.frm - btnClose_Cl 




Private Sub btnClose_Click() 

Unload Me 
End Sub 



Private Sub cmboAve rage Day s_Click() 

UpdatePatientDosingGraph * ~ 

End Sub 



Private Sub cmboChartType_Click() 

. Select Case cmbo ChartType .Text "~ 

Case TJne' 

MSChartl .chartType « VtChChartType2dLine 

Case "Ana* 

MSChartl .chartType * VtChChartType2dArea 

Case "Bar" 

MSChartl .chartType * VtChChartType2dCombtnation 

Case "Step - 

MSChartl .chartType * VIChChartType2dStep 

End Select 

End Sub 



Private Sub cmboDataToView_CHck() 

UpdatePatientOosingGfaph 
End Sub 



Public Sub cmboDateSelection_CUck() 

. If PAT_DATAJEvertData(0) » 0 Then 'no data appears to be haded 

brtStartOata * CVDate(Now) 
j brtEndDate « CVDate(Now) 

Exit Sub 
I End If 



I Select Case cmboDateSelectloaUstlndex 

Case 0 'recent 7 days 

brtEndDate « CDate<1nt(PAT_DATA.dEvenlOate(PAT DATAJEventData(O)))) 
brtStartOate * CCfcte(1nt(PATJ)ATA.dEventDate<PAf OATAJEventData(0))) - 7) 

Case 1 'recent U days 

WEndDate « CDate(lnt(PAT - OATA.dEventOate(PAT - DATA.IEventData(0)))) 
brtStartOate = CDate(lnt(PAT^DATA.dEventDate(PAT - DATA.IEventOata(0))) - 14) 

Case 2 'recent 30 days 

brtEndDate * CDate(lnt(PAT_DATA.dEventDate(PAT DATAJEventData(0))>) 
brtStartOate « CDatellnttPAT.OATA.dEventDatefPAT^DATAJEventDatafO))) . 30) 

Case 3 recent 6 .xo/rws 

bctEndDate « COate(lnt(PAT_DATA.dEventDate(PAT DATA.iEventData(0)))) 
brtStartOate « COate(lnt(PATJ>ATA.dEvertfOate(PAf DATA jEventData(O))) - 180) 
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End If 



frmRecenlDosingGraph.frm * FormJ?esto 



pniControls.teft = Me .Width . pnlCortrots.WWth - 200 
prtChart.WJdlh ■ pnlControis.left - 100 
MSChartl .Width - pnlChart Width - 100 
pnlChartHeight ■ Me.Height « pnlChartTop - S00 
MSChartl .Height = pnlChailHaigm - 100 

bProcedure InProgress » False 

End Sub 



Private Sub Form_Unload(Cancel As Integer) 
Sa ire test setzngs selected by user 

p^-!^-S!^ ULTSXmbo0ataToVicw " cmboDataToV.ew.Usllndex 
End s^ SUM - DEFAULTS cmboCh » rtT yP« * cmboChartType.Us«ndex 



Private Sub txt£ndDate_Change() 

Oo Events 

gslastEndDateChosen * txtEndOate 

In case me user chose a dare /ar removed from me dart of the first 
'dose, then notify the user end set the date to the first cose 

Elf OateValue(gsL3stEnd0ateChosen) > lnt(PAT_DATA.dEventDate(PAT OATAJEventOata(0)}) Then 
3Se^ 



vbJnfomiation, "Ending Oate Too Lata" 

W P^^ C °^ e(PAT - OAT ^ d ^ e ^ at ^ AT - OA TAJEvertData(0))) 
gsUstEndDateChosen * txtEndOate 
End If 



cn^OateSelertomUstindex » 5 Select the user setting 
UpdatePatfentOostngGrcph 
End Sub 



Private Sub txtStartDate_Change() 

Do Events 

gsUstStartDateChosen ■ txtStartOata 

7n case the user chose a date tor removed from the dare of the last 
cose, then notfy the user and set the date to the test cose 

| ,f ™ e ™^^stStartOateChoeen) < lnt(PATDATA.dEventDate<1)) Then 

V. *b^^ "» ft ** *~ " « being set to the first dose 

txtStartOata * C0ate(PAT_DATA.dEventDate(1)) 
gsLastStartOateChosen ■ txtStartOate 
— End If 



^boOateSelectlon.Listlndex • 5 'select the user setting 
UpdatePabentDosingGraph 
End Sub 
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Attribute VB.Name • TrmDoaingCalendar- 
Attribute VB^GIobalName Space - false 
Attribute VB.Creatable » False 
Attribute VB_P red eel a redid « True 
Attribute VB.Exposed » False 
Option Explicit 

Private bgResizedCalendar As Boolean 



frmDosingCalendar.frm • File Oeclaranons 

__________ ^ ^ ^ 



Private Sub btnChangeCompliance CIick() 
frn^ ^»»Wt»«K.*.*»*m«c 

End Sub 



Private Sub btnClose Click() 

Unload Me 
End Sub 



Private Sub Catendar_DayChange() 
Static bProcedurelnProgress As Boolean 

if bProcedurelnProgress Then Exit Sub -pntvent recursive calls 
bProcedurelnProgress » True 

frrnDosingCalendarAlousePointer * vbHourgtass 'hour glass 

DoEvents 

UpdateZoomBox 

ftmOo«ingCalendar.MousePointer « vbOefault default glass 

bProcedurelnProgress = False 'allow Mother cett to this sub 

End Sub 



Private Sub CafendarJWonthChangeO 
Static bProcedurelnProgress 

If bProcedurelnProgress Then Exit Sub pre vent recursive calls 
bProcedurelnProgress » True 

frrnDosingCalendar.MousePointer » vbHourglass 'hour g/ass 

DoEvents 

UpdateCalendar 

frmOosingCalendar.MousePointer * vbDefautt 'default 
bProcedurelnProgress = False 

End Sub 
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frmDosingCalendar.frm - Calendar Mirose 



C 



HI 



Update Calendar 
bgftesizedCalendar » False 
End If 



End Sub 



Private Sub Calendar YearChangeO 
Calendar_MoninChange 



End Sub 



Private Sub chkDoseChanged ClickO 

OrawAflDoseSizeChange- ~ ~ 
UpdateZoomBox 
End Sub 



Private Sub chkDosesMissed ClickO 

DrawAHDosesMissed 

UpdateZoomBox 
End Sub 



Private Sub chkDosesNotComplied ClickO 
OrawABNonCompJIedDosesTalcen " • 

UpdateZoomBox 



End Sub 



Private Sub chkDosesTaken ClickO 

OrawABCompltedDosesTaken ~ 
UpdateZoomBox 
End Sub 



Private Sub chkWeekN umbers ClickO 
RemoveAllObjects ~ U 

^e^ a,flf ^' Ca,endar - WCCkNumbcr3 " chkWeekNumbers 
UpdateCaiendar 

End Sub 
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frmDosingCalendar.frrn- Form_Activate 



Private Sub Fonri_Actrvate() 

SetPrintertcon False, " 
End Sub 



Private Sub Form_Load() 
Dim i As Integer 

'sart calendar with data ct latest dose 
_ If PAT_DATA.dEventDate(PAT_DATAJEventData(0)) > 0 Then 

rrmOosirtgCalendar.Calendar.Date = CVOate(PAT OATA.d£venlOate(PAT OATA.iEventOata(0})) 
_ Else 

ffmOosingCalendar.Calendar.Oate * Now 
- End If 
Me.Show 

Load R>IDetaflTime(2) 
Load fe!Detomrrtt{4) 
Load fcl0etarrtme(6) 
Load £blDetatlTirrie(8) 
loadlblDeta3Time(10) 
Load fo©etalTime(t2) 
Load blDetaDTime(14) 
LoadbiDetaaTime{16) 
LoadblD«Ui!Time(18) 
Load MDetaimme(2oj 
Load IbtOeUirnm«(22) 
CreateCalendarTTme Scale 
Do Events 

frmDosing Calendar. Calendar. Mouse Expand * 5 'expend the hot spot around date arrows 
Me.Show 

'Set the cfalog controls to the settings test set by user 
chlcOosesMissed • CAL_DEFAULTS.chkDosesMissed 
chkOosesNotCompfied « CAL^DEFAULTSxhkOosesNotCompOed 
chkDosesTaken - CAL_DEFAULTS .chkOosesTaken 
chkOose Changed * CAL_DEFAULTS.chkOose Changed 

UpdateCaJendar 
End Sub 



Private Sub CreateCalenctorTirneScale() 
On Error Resume Next 
Create the time scale on defetf ana 
Oim sAM As String, sPM As String. I As Integer 

, If frmDosingCatendar.Wldth < 5000 Then 

SAM»- 

sPM«- 
Else 

sAM - "am" 

»PM « "pm" 
I End If 

lblDetaimme(2).Capbon ■ "2" ♦ sAM 
With Ibl0etaimme(2) 

.Uft ■ (Me.pnlZoom.Wldth • (I / 24)) - (Me. IblOetaimmefT). Width / 2) 

.ForeColor = 4HFFFFFF 

.Visible = True 

^Order 
EndWKh 

lbIDetaimme(4).Caption ■ -4" ♦ sAM 
With tblOeta{ITime(4) 

.Left * (Me.pn2oom.WWth • (I / 24)) - (Me JbJDetaimme(i).Width / 2) 

.ForeColor = 4HFFFFFF 

.Visible * True 



/At 
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TmDosingCalendar.frm . CreateCalendarTimdS 

1114! 



ZOrder 
End Wtth 



tblOetatmnia(6).Capt>on * '6* ♦ sAM 
WUh ibl0elaimme(6) 

.Left • (Me.prdZoom.Wldth • q / 2 4)J . (Me.lblOetafmme(i).Width / 2) 

fanColor » MFFFFFF 

.Visible » True 

ZOrder 
End With 

[WOetaimme(8}.Caption = "8' ♦ sAM 
With lbiDetaflTlme(8) 

.Left = (Me.pnlZoom.Width • (i / 24)) - (Me JblDetaiffime(i).WIdth / 2) 

.ForeCoicr * IHFFFFFF 

.Visible • True 

.ZOrder 
End With 

IWDetaimme( 10). Caption « "10" ♦ sAM 
WtthtblOetaimme(IO) 

.Left « (Me. pntZoom. Width • (1 / 24)) - (Me.lblDetaimme(I). Width / 2) 

.Fontcolor » &HFFFFFF 

.Visible « True 

ZOrder 
End With 

IWDe<airnme(12).Caption « ir ♦ sPM 
WtthbtDeta3Time(12) 

.Left ■ (Me.pnfZoom.Wldlh • 0 / 24)) - (Me JblDetallTime(O.WJdth / 2) 

^oroCo/or = IHFFFFFF 

.Visible « True 

ZOrder 
End With 

IWDetaimme(14).Caption = T ♦ sPM 
With toiDetaBTimefU) 

.Left • (Me.pnlZoom.WWth • (I / 24)) - (Me. IbiDetairTime©. Width / 2) 

J=onCdor » &HFFFFFF 

.Visible » True 

ZOrder 
End With 

IWOeta(mme(16).Caption ■ m A" ♦ sPM 
WithlblDeta8Time(16) 

.Left = (Me. prtZocrn. Width • (i / 24)) - (Me JblDetairTime(i). Width / 2) 

JForeColor* IHFFFFFF 

.Visible » True 

ZOrder 
End With 



lblDeta(ITime(1 8).Caption • *6* ♦ sPM 
With lbI0etaimme(16) 

.Left ■ (Me.prdZoom.Wldth * (I / 24)) - (Me JblDeta«Time(l). Width / 2) 

.FonCotor * &HFFFFFF 

.Visible » True 

ZOrder 
End With 



toOetaimme(20).Caption » V ♦ sPM 
With feIDeta3Ttme(20) 

.Lett » (Me.pniZoom.Wldth ■ (I / 24)) - (Me JblOetaimme(i). Width / 2) 

.FqreCotor.&HFFFFFF 

.Visible « True 

ZOrder 
End With 



M7 
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frmDosingCalendar.frm> CreateCalendafT«&r~ *ie 



IUD«taHTune(22).Caption « 1 0" ♦ sPM Li!l I 
With B>(OttaaTWne(22) 1 



.Visible - True 
-ZOrter 
End With 

On Error Go To 0 
End Sub 



P SRe^°r7": n USeM0Ve<Butt ° n AS int °9«' Shi « As '"^3er. X As Single. Y As Single) 



UpdateCaJendar 
bgResizedCalendar » False 
Endir 
End Sub 



Private Sub Form_Resfce() 

Me.Refresh 

Static bProeeduretnProgress As Boolean 

irbProcedurelnProgress Then Exit Sub 

If Me.WlndowState » vbMinimteed Then Exit Sub 

b Procedure tn Progress = True 

If Me.VVIdth* 6000 Then 

Me.VWdth - 6000 
^^bProcedurernPfogrtas » False 

irMe.Height<5000 Then 

MeXetght « 5000 
^bProcedurelnProgresa « False 

CreateCaiendarTime Scale 

SS^v^l" 3 Me WhJm • Pn'Controls.Wrdth - 200 
Calendar.Wdth • prtControhxLen - Catendar.Lett - 150 

r° P " ******* - PnI2oom.Helght • 4S0 
pnfTime. Top • pnfZoom. Top 



^^^? W ^ I2 T OOm - T0p " C*n*f.Top - 100 

P^o^^^eXv^^ mnts on fom CM not ** HP^tf <"« Is done 



b Procedure InProgress « False 
End Sub 
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frmDosingCalendar.frm - ForrnJJnloatt 

1 116 I 



Private Sub Form_Unload(Cancel As Integer) 

CAL_OEFAUlTS.chkOcseaMts*e<j « cNcDoacsWis^d 

C !l!;S OSC ^ 0,Com,,eed • ^hOos«*NotCompfied 
CAL_OEFAULTS.chkOos«sTaken « chkOosesTaken 

CAL_OeFAULTS.chkDo»eChang«d.chkDo 5 eChaftged 
End Sub 



P %ll U ^^- MOUSeMOVe < Butto " As "W. Shift As .nteger. X As Si „ g , e> Y As Si ng,e, 



UpdateCaJendar 
bgResfeedCatendar » False 
End If 
End Sub 



^SS!£SS^ - Mouse Move(Bunon As .meger. Shift As Integer, X As Sing(e. Y As Sing.e, 



UpdateCaJendar 
bgResizedCalendar = False 
End If 
End Sub 



/3/ 
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frmPatientDosjngRpt.frm- Re Declaration! 
~~ ~ 1 1 1 ? | 



Attribute VBJ4ame « TrmPatfeniDosfng Report- 
Attribute VB_G to baJName Spice * False 
Attribute VB~Creatable • False 
Attribute VB_P reded are did * True 
Attribute V8_Exposad « False 
Option Explicit 



Private Sub RescaleGridQ 
Olm {Remainder As Integer 
put any fined width columns Onst 
0rfd.CorWldtft(6) « 0 'ccr.l shew Ms cotvmn 

grid.CofWdth(l) - 1300 
grid.CoJWdth(2) « 900 
grid.ColWldthp) * 1000 
grtd.ColWWthK) - 950 

^^^tVJL?^'^* * 9rfd.ColWWth(4) - grid.CoAMdth(3) - grid.ColWldth{2) - grtd.CofVWdth(l) 
grid.CoMfldth(0) « [Remainder • 0J25 
grid.ColWklth(5) « iRemainder " 0.75 - 370 

End Sub 



Public Sub UpdatefrmPatientDosingReportHeaderO 

'Snow custom labels from conhg file if there were any 
Label! p) » gsCustomLblPaUentUstName 
Ub«J1(1) - gsCustcmlblPatienlFirstName 
Labell (2) « gsCustomLW Organ 
labeJ1(0) * gsCustomLbtPattentlO 
Labe!1(6) • gsCustomLblTxCenter 
Libel! (7) > gsCustomLolDrug 

brtPatlentUstName - ' ' ♦ PAT^DATA.sPatJentLastName 
brt^attentRrstNama « " ♦ PAT_OATA.sPabentFIrstName 
txtPatientlD = PAT_OATA.sPaQentlO 
txtOrug • - - ♦ PAT_0ATA.sOrug 
bttTxCanter » " " ♦ PAT_OATA .sTxCenter 
txtOrgan « * " ♦ PAT_DATA.sOrgan 

End Sub 



Public Sub UpdatePatientGrfdDisplayO 

This precis called when it is necessary to update the display 
'due to some element or feature being changed. 

Dim sTab As String, I As Integer. sTime As String, sOate As String. sTemp As String 

^ bS i5!£!If e4T8ken As Boolean . bShowOoseChanges As Boolean. bShowUserEvents As Boolean 
siao w Cn/a{9) 

grid-Oear the erase the gnd 
grid .Row* b i 

, ^" F ^S.^S!^^ m i EvertT, ' 9|D0 " SiZe r^Ub^Gri-JC^umnOmoml*- r ♦ 9 *lttd»«Cd«mnC™t,mJ 



RescaleGrid 
'grid.Row e o 

grid.Col » 1 *sef to coturnn ; 
grid-Redraw a False 



bShowOosesTaken • chkDoses.Value Speed up me dsoiay in loop bv assigning control value to a var 

bShowOoseChanges • chkOoseChanged. Value ^ vwe io a var 

bShowUserEvents ■ chkUserOe fined. Value 
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frmPatie mDo3inQRpl.frm - UpdalePalienlGridDl 

1 118 



- ,f PAT OATA^teeventTypeO) = giEVEMT OOSE TAKEN Then 
IfbShowOosesTaken Then 



S5r^^ OsOateOisplayFormat, ♦ " " ♦ FormatS{PAT_DATA.dEventOatt(i), 

sTemp • sTemp ♦ sTab ♦ "Dose Taken" ♦ sTab ♦ CStr(PAT OATAJEventData(l)) ♦ ' mg" 

SIXp * PA ^DATA.sUserOala1(i) ♦ sTab% PAT_0ATA.sUser0ata2(i> ♦ sTab ♦ PAT_OATA.sUserOat a 3(i) 

«* gnC.UXAactyTo = 12 LZ JUST APPLY TO SINGLE ITEM 

xxx snd.ForeCcicr = &H0 'black 

flrid.RowData(grid.Rows - 1) * CStrlO 
End If 

El » L P . AT -P ATA byteevenlType(i) * •EVENTJJOSE CHANGED Then 
If bShow Dose Changes Then 

^^ntS^^^r 0 ^^ 9 ^^ gsOateOisplayFonnat) ♦ " " ♦ Fom«t$(PAT_DATA.dEventDate<J). 

sTemp • sTerop ♦ sTab ♦ Dose Change" ♦ sTab ♦ CSlffPAT OATA.iEventData(i)) ♦ * mg" 

S^k^Trt^ * PAT ^ AT A^U«rOata1(l) ♦ sTab ♦ PAT.0ATA,.Usar0ata2(I) ♦ sTab ♦ PAT_0ATA.sUserData3<n 

xxx pid.Us^pDlyJo * 12 'LC_US7APFIYTC SINGLE /TEAf 

xxx gz&ForeColcr* ZHCGFFFF -yellow ' 

gnd.RowOata(grid.Rows - 1) = i 
End If 

E ^L f c f ! A , T -:? A ]?' byteEvertType(,) * ^EVENT-USER OEFINED Then 
If bShowUsefEvenls Then 

V XtW^ WTA ^ tea gsDateO«playFormat) ♦ " - ♦ FonnatS<PATJ)ATA.dEventDate<Q. 

V» ^ * " CUSt0m 6venr * * Tab ,fl0 " b < w * ™ -nts • slab ♦ CSfffPAr^OATA 

S!^^ * PAT.DATA.sUsert)ata1(0 ♦ *Tab ♦ PAT.DATA.sUserOabi2(l) ♦ aTab ♦ PATJ>ATA.sU S erOata3(I) 

xxx gridJJstApptyTo « 12 tCjUSTAPPL YTO SINGLE fTEM 

*xx gridfomCotor * &HCOFFFF 'yoffow " 

grtd.RowData(grid.Row» - 1) - 1 

End If 

End If 

— Next! 

grkJ.Redraw = Troe 
grid.Row • 0 
gridXol • 0 

btaOeleteUaerEventEnabled » False 
End Sub 

Private Sub btnClose Click() 

Unload Me 
End Sub 



4- 
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fnmPatientDosingRpt.frn - btnDefeteUsergve- 




and.x . Clnt(9rt<).RowOata(gnd.Row)) 
♦ l ^J-^TA. byteE «n,T yper))nd e X) , gi£VENT_OSER_DEFINE0 Then EventDelole PAT.OATA. , (ndex 
^CaO Update PatientGridDispJay 
End Sub 



Private Sub btnNewUserEvent Click!) 

? me * da;e clined ov the user 
Dim .Index As integer. (Date As Long, i A* Integer 



E 
E 



'tfndtte totem the stnxtun, user canceled c* of entry o*iog 

g^empOaterime, 

E| CWcti$erOefined. vahie « vbChecked 

EnoMf UpdatftPa0enlGridO »Ptoy 

gitlSetFocus 
grktCol - 3 

For I > 1Togrtd.Row3-i 

gnd.TopRow ■ t 
End If 
Next I 



- End If 
End Sub 



PrrvateSubchkOoseChanged ClickO 

CaBUpdatePatientGridOispiay 
End Sub 



Private Sub chkDoses ClickO 

CalUpdatePatlentGrfdOlspTay 
End Sub 
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frmPatienlDr.singRpt frm - chkUr,erDefined 



Private Sub chkUserOefined ClickO 

CaO UpdatePatJentGridDisplay ~ 
end Sub 



Private Sub Form Activate*) 
Me.Refresh 
Fomi_Resize 
grid.Refr«sh 

Can UpdatePabentGridDtspJsy 
SetPrinterlcon True. "iPrint Dosing Report... 
End Sub 



Private Sub Form Load() 

UpdalefrmPatientOoaTngReportHeader 
End Sub 



Private Sub Form_Resize() 
Static bProcedurelnProgress As Boolean 
irbProceduralnProgftsa Then Exfi Sub 
If Me.WlndowState » vbMinimteed Then Exit Sub 
b Procedure InProgress » Tore 



□ 



lfMe.VV)dth< 8100 Then 

M«.Widtn»8100 

bProcedurelnProgress - False 
End If 

If Me.Height< 5000 Then 

MeJteighl = 5000 

b Procedure tn Progress * False 
End If 



framevlew.left « Me.Wldth - frame view. Width - 250 
btnCtose.left = Me.Width - bmaose. Width - 250 

'TEL' b ^ C ? $e Left * WnClose.Wldth - grid.Left 
grld.Hefght * Me.Height . grid.Top - 425 
RescaJtGrid 

bProcedurelnProgress ■ Faise 
End Sub 



P ^£ U t^ AnerEdi,(ByVal R ° W ^ Lo "9. B V Val C <* * s «-ong, 

- Select Case Col 

- Case 3 'user column 1 

C^I-^^^f 4 ^^^ = «* T «* *ro*e«™,ro 

- C.«r 0ATA ^^^^ mctaMMma* 

- End se A ea° ATA ^^ te3< ^ d - R0WData{Row)) * ^' Ttxt ™° "» »rjaun 
gbPatientO.taNotS.ved - True set /fag ro Me *as cnengedo,,,,,* ye? been S e»*c< 

- lfgrtd.Col»3Then 
grld.Col • 4 gsto next cell 

- Else If grid.Col o 4 Then 
gno\Col »5 -go to next cell 

' — ■ 
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frmPatientDosingRpUrm - gri^AflefiEdl 



Elselfgrid.Co»»5Then 

□ If grld.Rows » grid.Row ♦ 1 Then 
grid.Row - grid.Row ♦ i 
grid.ColO 'gc to next ceif 
End If 

I End If 

End Sub 



prevent run ome error by looking tor last row 



tf^ere key w*s pressed and column is ecsratf- 
grid.Text ■ " 

- End If 
End Sub 



E 
E 



Private Sub grid_RowColChangeO 
Dim (Index As integer 

Else 

gnUEdltaWe ■ False 
End If 

ilndex - Ctnt(gfld.RowData(grid.Row)) 

''^r^VS:^ "'^-^ WNED Then 
Else 

MnDeJeteUserEventEnabJed • False 
End tf 



End Sub 
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frmReadDeviceData.frm • File Declaraiions 



Attribute VB_Name • TrmReadDeviceQata" 
Attribute VB Global Name Space "False 
Attribute VB_Creaublo - False 
Attribute VB^PrededaredJd ° True 
Attribute VB Exposed = False 
Option Explicit 



Private Sub btnClose_Ciick() 

Unload Me 
End Sub 



Private Sub btnReadEntireContents_CHck() 
Dim r As integer, lErrorCode As Long, i As Integer, sMSG As String 

f • VaBdatePatientOataSaved ensure mat previous catlent data ;vas saved before zroceeding 
If r • vbCancel Then Exit Sub 

btnReadErtrnjContents.Enabled » False 'prevent recursive calls to device 
gbKeepPolSngOevice « False stco soiling for now 

Wait 0.25 

brtPatientLastName » " 'clear cuf fne rexf boxes before reading <jata 

brtPatientFUstName « - 'dear out the te xt boxes before reading data 

txtOrug ■ ~ 

txtPaUentlD ■ - 

txtTxCenter = ~ 

txtOryan » ~ 

bctSerlalNumber «= " 

bctDoseSze ■ ~ 

txtOoseTirne(l)* ~ 

txtOoseTlme(2) * — 

txtDcseTemcP) » ™ 

txtOose Ttme (4) = ~ 

txtDoseaPerOay 3 " 

brtDoseUckoutHours = - 

brtMedicationRematning = - 

bttEventCount * — 

brtLastRetrfevalDate * ~ 

brtOe vice Started « - 

r » Comm_ReadEntjreMemoryContents(PAT OATA, lErrorCode) 
. If r Then 

PopulateDeviceCommOialog PAT_0ATA, Me 
PAT_DATA^PatfentDataFBeName e - 
frmMairumnuFHe Save. Enabled "False 
. Erse 

EraseOatalnMemory PAT DATA 
DispiayErrorMessage lErrorCode 
. End If 

btnRMdEntrreContents.£nabJed » True Ve-enac/e button 
RefreshAIIOpenForms 

Vompare batxary time to value retrieved from ini fUe to determine if a 
'reminder should be given to the user to change the barrens s, 
\Z ?^(^ u NI&Wn«gsAppiniFileSpec. "Options". "Battery Change Days". 180)) 
If! And Val{PAT_OATA.sBatteryChangeTim B r) >» I Then 
sMSG « "The battery in this device needs to be changed." ♦ vbCrtf ♦ vbCrtf 

'Atso took at the error flag reamed from the device tosaeifthe brownout 

'bit was set. It so. append a different notice to the message than the normal one. 

If PAT_OATA.bErrorBrownOut Then 

Else^ " SMSG * " 7hfl d0ViCe imlicates mat P°** f was brielfy lost due to low voltage." 
sMSG • sMSG ♦ They have been in place lor over • ♦ CSbtf / 30) ♦ " months." 
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nReadDeviceOata.frm- btnReatfEntireContenls^ ick 



End If 



sMSG ■ sMSG ♦ vbOLf ♦ vbCrU ♦ "Do you want to change the battery nowT 
Beep 

f « MsgBox<sMSG. vbExdamation ♦ vbYeaNo ♦ vbDefauttButtonZ "Battery Change Needed") 

If r a uhVac TYtmn ' 



I End If 

End If 

End Sub 



Private Sub Forrn_Activate() 

PoputateOevlceCommOialog PAT_DATA. Me 

Comm JnttiaJfceCommPort 'utitiaise the corwr. con trots #AJ? Sie se&ngs 

gbKeepPcrilingOevice « True 'csnznua potting device 
PollDeviceContinuaHy Me 
SetPrintertcon False, ~ 
End Sub 



Private Sub Form Load() 
Me.Left >0 
Me.Top * 0 

Unload frmOevfcelnittalfee 'don't need fftis form 

gbCommOK » 99 Vesar /Teg that will cjve an indication as to the communication status. 
End Sub 



Private Sub Form_Unload(Cancel As Integer) 
gbKeepPollingOevlce » False 'stop poOing the device 




If r o vbYes Then 
Call Change Batteriesttequest 



Waft 0.1 
End Sub 
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frmPrint.frm - File Declarations 



Attribute VB.Name • "frmPrint" 
Attribute VB GlobalNameSpace = False 
Attribute VB_Cre stable • False 
Attribute VB_PmdedaredJd * True 
Attribute V0~Exposed ■ False 
Option Explicit 



Private Sub btnClose_CHck() 

Unload Me 
End Sub 



Private Sub btnPrintNow Click() 

btnMntNow.EnaWed - False " 

btnPrintNow.Refrash 

vsPrtntert .Action » paPrintAQ 

btnPrintNow. Enabled - False 
End Sub 



Private Sub btnPrintPage_Click() 
btnPnntPaoe.EnabJed • False ~ 
btnPrintPige. Refresh 
vsPrinter1.Actian « paPrintPage 
btnPrtntPage.Enabled ■ True 

End Sub 



Private Sub btnRefresh_Click() 

RefreshPrevtew 
End Sub . 



Private Sub Form_Load() 
Dim I As Integer 

gbPrtntFonnLoadIng » True 

fimPrfnt.vsVTewPortl .BorderStyle « 1 'turn off til needed 
gbPrinterEfTorOetected - False 
Me.WWth ■ 7500 

MeJAove (Screen.WWth - Me.Wldth) / 2. (Screen. Height - Me.Height) / 2 center /or* on screen 
' datPrintingndiontDatabasaName « sgOataBaseNam* 

IblActivePrtnter.Caption e - " ♦ vsPrinteri .Device 

gbPfevertPreviewUpdates » Febe 'allow controls to update whan caHed 

Me.Show 
Oo Events 
RefreshPreview 
SetPrintertcon False, - 
End Sub 
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frmPrint.frm - Form_QueryUnload 



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 

Dim r As \r\iaamr 9 9 



E 



Dim r As integer 

If gbPrintSpoofinglnProgress Then 'user toed to exit while print spoofing 
Beep 



r • MsgBoxptems are still waiting to be printed. If you continue, the print job may be tost." ♦ vbCrtf ♦ vbCrtJ ♦ "Do vou shh »~ 
close triisformr.vbQuestion*vbYesNo. "Waiting For Printer) wo you sun want to 



If r ■ vbNo Then Cancel = True "pre yen; crash error 
End If 

gbPrtntSpoofinglnProgress = False 
End Sub 



r 



Private Sub Form_Resize() 
If trmPiinLWlndowStaTe o vbMinimized Then 'nor rrvmmized 
PaneOOl .Left « frmPrtntWuflh - Panel301.WWth - tOO 
vavlewPortl height « (frmPrint.Height - 400) 
vaViewPoitl .Width « (PaneQDl.Left . 100) 
End If 



SetPreviewStze 
End Sub 



Private Sub HScroH1_Change() 
Static b Procedure Active 
If bProceduraActive Then 
HScrolH .Refresh 
Ext Sub 
End If 

bProcaduraAcBve » True 'prtvtnt recursive cans to this procedure 

HScroffl .Enabled » False 

frrnPrinLvsPrtntsrl .PreviewPage = HScroOl .Value 

Update Page Buttons 

End Sub WlUmACtiV " * ***** ,prBvnm ncurs/v ^ calls to this procedure 



Private Sub HScroll1_Scroll() 

Static bProcadure Active 

If bProceduraActive Then Exit Sub 

b Procedure Active » True 'prevenf recursive cans to tNs procedure 
ttrfPsgeNumber - HScroOl. Value 
Update Page Buttons 

bProcedureActrve - False pre venf recursive caBs to this procedure 
End Sub 
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frmPrint.frm - IblActivePrinter Click 



Private Sub tolActivePrinter_ClickO 
Static bProcedureActfve 
If bProcedureAdtve Then Exit Sub 



bProccdureAcbve • True 



'pravmtt recursive caHs ;o this procedure 



On Error GoTo btnChangePrinter_Click_Error 

CommonOialogl .Mbi * t Set /owes; page number to aim; 

CommonOialogl. Max * giTotalPrintPages Set highest page number n pnr.t 
CcmmonOialogl.FrofnPage • 1 set rcwest pape m,-mPer » prmr 

CommonOialogl .ToPage • giTotalPrintPages set fitgr.es: pace number to pnnt 

'Set flags 

VD_HIDZ*RIN7TCF>LS 4WO0COCZ The Pnnt x He ctreck tot ,s net aspiaved 

•PO^NOPAG&JUMS &H3& Disables the Pages epbon botxn end the associated edit controi 

PD_PR1NTSBTUP SHJO& Causes me system to dsstey the Part Setvo diaiog ocx rather than the Phr.t <Sa!oc box 

Commona»log1.Rags««H404 y 

CommonOiilogLCanceiEfror • True 

CommonOialogl Action « 5 'caff printer common daiog 

Vacate caption to most current printer selection 
tblActtvePrinter.Caption » ■ - ♦ vsPrinterl .Device 
frmPrinLMousePointer « vbHourglass 
DoEvents 

SetPreviewSIze 'this is mainly for layout if pcrtraitAandscape is changed 
RefreshPreview 

ftmPi1nt.MousePointer - vbDe fault 
OoEveiits 

btnChangePrinter_Clicx_Exii: 
bProce dure Active » False 'prevent recursive caOs to this procedure 
Exit Sub 

btnChangePrinter_Click Error 
Resume bmCtangePrlnter_Cflck_Exit 

End Sub 



Pnvate Sub optZoom_Ctick(lndex As Integer) 

SetPreviawSize 
End Sub 



Private Sub vsPrinter1_EndPage() 

C*8 PrtntPageNumber " 
End Sub 



Private Sub vsPrinter1_ErrorO 

gbPrWarEmirReceived « five 'teBs other pnes that error occurred. Proc must reset Rag 

- " vs, ™ lef1 - Error » 5 Then a cancel was received from the pant octiens o&tog 

vsPrtnterl Action • paStartDoc start doc 
vsPrinterl Action ■ paEndOoc 'end doc 

- Ebelf vsPrtntert.Error * 3 Or vsPrinterl .Error * 4 Then canT acces printer, or can't start rcb 

an error code of 3 is generated when user presses the 'CANCSL* b-Jtton from options daiog 
vsPrinterl Action • paStartOoc 'start doe 
vsPrinterl Action « pa EndOoc 'end doc 

If gbPrtntererrorOetected » False Then 'warning has not yet been issued 
Beep 

MsgBox The printer is not available. Please ensure it is powered on and Is on-line/, , "Cam Print" 
gbPrtnterErrorOetected « True 



End If 

Ebe If vsPrinterl. Error « 6 Then 'already parting 



E 



wa/Tung has not yet eeert issued 



If gbPrintererrorOelected ■ False Then 
Btep 

MsgBox "The printer is not available P!b»<** » • 

gbPrinterEnorOetected - TnT Brt5UrB rt P° wred on " d " 

End If 
End If 



, "Cam Print- 



Em! Sub 



Private Sub vsPrinten NewPage() 

With frrnPrintvsPrinterl 

V.«. me „*. „ TOfl5 ^ SO ^ « C.,^o«. 

ICurrentTextAlign « .TextAfign 
ICurrentY = .CurrentY 
sCurrentFontNarne « .FontName 

.FontName « "Arial* 
.FontrtaOc ° False 
TextAUgn = taRJghtTop 

.FontStee « 9 tar/ 
•Fontltafic « False 
frrnPrintvsPrinterl • App.TWe 

.FontSize ■ fCurrentFontSbe 
.Fontltafic • bCurrentFontftalic 
.TextABgn ■ ICurrentTextAlign 
.CurrentY « ICurrentY 
.FontName » •CufrenlFontName 
End Wtth 



Select Case gsActrveFormMame 
Case "frmPatlemOosingReport- 
HgFTotalPrtntPages Then PrtntDoslngEventsHeader " 



gITotalPrfrtPages ■ gfTotalPrtntPaoes ♦ 1 
End Sub 
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fmOevceDiagnostics.frm - File Declaration* 



Attribute VBJYame ■ TrmDevice Diagnostics" 
Attribute VB_GlobalNameSpace * False 
Attribute V8_Cr eatable « Falsa 
Attribute V8_PredecfaredJd ■ True 
Attribute VB Exposed « False 
Option Explicit 



Private Sub btnChangeBatteries ClickQ 

CaB ChangeBatteriesRequest 
End Sub 



Private Sub btnClose CltckO 

Unload Me 
End Sub 



Private Sub btnReadEntireContents ClickO 
Dim r As Integer. lErrorCode As Long, i As Integer 

»%^vb^Tnt S HSu B b ^nt *.„ W *s sa~d ^ P roc a ^ g 

SS^!^ B c COnt l tW *• Enab,e<, * FalM 't**™* rscurxv* ca*s to device 
SS^a25S?? d ,ArwvM ' «** ;o device 

gbKeepPolDngOevice - False Stop poQing for now 

WF^«wrtU«Name = - far out the toxt 00x03 be for* reading dett 

SSugx2f^* mt ° ° Uf teJCt 60Jr " 6eftM * n9dng tf " 9 

txtPattsntlD • " 

txtTx Center ■ ■" 

txtOrgaruaear 

brtSeriaJNumber « " 

txtDoseStee * ~ 

txtDoseTlme(l) ■ - 

txtDosertme(2) ■ - 

txtOoseTtmep) - - 

txtDoseTime{4) • - 

bctDosesPerOay * ~ 

MDoseLockoutHours ■ " 

txtDeviceStarted ■ * 

bftMedlcationRemaining * " 

txtBatteryChangeTimer « - 

txtEventCount * - 

tortFkmwareVer « ~ 

f Co^_ReadEntireMemoryContents(PAT,DATA, lErrorCode) 

— Iff Then 

PopulateDevicaOlagOiafog PAT_DATA. Me 
PAT_DATA.iPeHentDataFiJeName « ~ 
frmMaln.mnuFnaSave.Enabled « False 

— Else 

EraseDatalnMemofy PAT DATA 

— End If 

gbKeepPoffingDevice » True start poling again 

btnReadEntireContanti.Enabled = True 7e-enewe buaon 
btnSendData,Enabltd ■ True 
RerreshAIOpenForms 
End Sub 



/X3 
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frmOevrceDiagnostics.frm - btnSendOata CIK 



Private Sub btnSendData_Click() 
Dim I A» Integer, r As Integer. lErrorCode As Long 

r » VaikteteDoseNumbers<Me) 
If r* False Then Exit Sub 

Beep 



'^mZZ^^^T^ 9 !2* ,m,,,ion o™" 0 * ■» "» Cy««cT«eh device wfll be changed It you continue. Mediation 



lfr«vbNo Then Exit Sub 

btnSendData.Enibled » False pravenr recursive cafls ro device 

binReadEntireContents.Enab.ed * False 
gbJteepPollingDevice • Falsa 'stop pclSr.g fi>r n<*v 

On Error GoTo btnSendtota_Click_Error 

r ■ Comm_$endCustomData<PAT_DATA, DATA BEGIN CUSTOM 1 lErrorCode) 
If ErrorCc'de Then Error lErrorCode 'error numteT 



7^^^ C ^T^ ( l A l- DArf< MTA -BEG»N-CUSTOM2. lErrorCode) 'send to OeWcs 
If lErrorCode Then Error lErrorCode 'error number 

u • Co ^ m -^ Cl f om Oata(PAT.0ATA. DATA B EGI N CUS TOM3, lErrorCode) 'send to device 
If lErrorCode Then Error lErrorCode 'error number 

^^ Se ^5^° m0 e? ta(PAT - DATA ' D A TA.BEGIN.CUSTOM4. lErrorCode) send ro device 
If lErrorCode Then Error lErrorCode 'error number 



ensure that tne values In me fax? bores are converted into the global structure 
" i For i ■ 1 To 4 
• H tsDate(txtOoseTime(i)) Then 

— E^ AT ' DATA ' dPrBSC " l><dDOS * Tlnie(l) " T,meVa,ue (WOoserime(l)) 'save Dose Interval 

_. PAT.OATA.dFTescribedDoseTimefr) « -1 InoVcafe tfiar no tfme was sef 
' — End If 
I Next I 

r • Comm_SendDosingParams(PAT_OATA, lErrorCode) 
If lErrorCode Then Error lErrorCode -error number 



btnSendData^CBck.Exft: 
DtnSendDaU.Enabted » True 're-enable button 
WnRaadEnUreContenu.Enabled • True 
gbKeepPoflmgDevice « True 'continue polling device 
Exit Sub 



btn Send Dati_C0ck_ Error 

OisptayErrorMessage lErrorCode 
- Resume 0 temp test 

Resume btnSendOata Cfick Exit 
End Sub 
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frmDeviceDiagnostics.frm - Formjkdivaft^. 



Private Sub Form_Activate() 

PopuJateDevteoCHagOlaiog PATJ5ATA. Me 

Comm JnitiaiizeCommPort «:e me comm port from !N! file settings 

IbiCommPortCaption ■ • • ♦ CStr(giCommPort) 
ibfSettings. Caption » " " ♦ gsCommOevice Settings 
tblDevtceWaHTima » " " ♦ CStr(giOevice Response Wait) 

• goCommSusy ■ Fatse 'reset Hag 

* gfiCorvnfieph/Pendtng * False 'reset flag 
gbKeepPoffingDevlce » True continue soismg Oewco 
PollDev ice Continually Me 

SetPrintertcon False. " 
End Sub 



Private Sub FormJnHialize() 

Mt.Left ■ 0 
Me.Top ■ 0 * 
End Sub 



Private Sub Form_Load() 

Unload frm Device Initialize 
Unload frmReadDevteeOata 

gbCommOK « 99 Vesef Sag that win gtve an indication as to Ore communication sums. 
End Sub 



Private Sub FormJJnload( Cancel As Integer) 
Dim r As Integer 

r ■ VaBdateDo*eNumbeis(Me) 
If r • False Then Caned • True 

gbKeepPolOngOevtce • False "stop poBin gme device 
Watt 0.1 
End Sub 



Private Sub txtDoseTime_Change(lndex As Integer) 
- If lsDate(txtOoseTlme<lndex)) Then 

PATJ)ATA.dPresatoedDQse'nme<lndex) « "nmevaluetfxtDoseTTmeOndex)) 'save Oose Interval 




PAT_DATA.dPresciibedDoseTime(lndeK) « -1 indicate mat no time was set 
- End If 
End Sub 
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DeviceDiagnostics Jrm - lxlDoseLockoutH6ure_V . nge 



Private Sub txtDoseLockoutHours_Change() 

PATJ>ATA.aOosetQckoutHours » txtOoseLockoutHoura 
End Sub 



'say Dos* Lockout Hours 



Private Sub txtDoseStze_Change() 

PAT DATA. iDose Size ° totOosaSize 'save Ocse See 
End Sub 



Private Sub txtDosesPerDay_Change() 

PAT_DATA J DosesPe rDay » Val(txtbosesPerDay) 
End Sub 



save Ocses per day 



Private Sub txtDarg_Click() 

PAT_DATA.sDxug » brtDnjg say tiaid 
End Sub 



Private Sub txtOrgan_CHck() 

PAT_0ATA.$Organ - txtOrgan 
End Sub 



'save field 



Private Sub txtPatientFirstName ChangeQ 
PAT_OATA.sPattantFirstName - UtPadentF irttNaroe 
End Sub 



'save Bald 



Private Sub txtPatierrtlD_Change() 

PAT_OATA-»PatlentlD * txtPaflentID save Patiant ID 
End Sub 



Private Sub txtPatientLastName_Change() 

PAT_DATA .sPalie nt LastNa ma o txtPatientlastName 
End Sub 



'save Raid 



Private Sub txtSeria!Number_Change() 

PAT_OATA^S«rialMumbtr » bctSertelNumber 'save serial number 
End Sub 
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frmDeviceDiagnostics.frm - txlTxCenler.una^ 



Private Sub txtTxCenter_Change() 

PAT_OATA.aTxCenter » bttTxCanter save Held 
End Sub 



Private Sub UpOownDoseUme J)ovwClick(!ndex As Integer) 

Dim fOalylncrement As Single. (index As Integer 

. If bOate(txtDoseTtme(lndex)) Then 

itndex » TimeVatue{txtDoseTtme(lndex)) • 24 
Undex ■ (Index - 1 
, Ifilndex < 0 Then 



Ltxt Dose Time (Index) = - 
Exit Sub 
Emit 

Else 

itndex - 23 
I End If 

fOalylncrement » (Itndex / 24) 

txlDoserime(lndex) ■ FormattrnmeValue(CDate(fOalylncrement)), gsTtme Display Format) 
end Sub 



Private Sub UpOownOoserime_UpCHck(lndex As Integer) 
Dim fOalylncrement As Single, (Index As Integer 

. lfbOate(txtOoseTime(lndex))Tben 

itndex » TimeValue(txtDo*eTime(lndex)) • 24 
Undex » Hndex ♦ 1 
_ If llndex > 23 Then 



fOalylncrement • (llndex / 24) 

brtDoseTlme (Index) « • • ♦ FormatjrnmeValue(CDate(rOarylncrement)), gaTime Display Format) 





bctDoseTime(lndex) ■ " 
ExftSub 
End If 



Elsa 

Undex * 0 
End If 



End Sub 
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frmFaxStatus.frm - File Declarations 



Attribute VB Name ■ TrroFax Status" 
Attribute VB.GIobalNameSpace ■ False 
Attribute VB_C/eatabte « False 
Attribute VB J»redectaredJd • True 
Attribute VB.Exposed ■ False 
Option Explicit 



Private Sub crndCance!_Click() 

On Error Resume Next 
' gzrat. Ctr.celrax gcFa x.ra tLogiO 

Unload Me 

End Sub 



Private Sub Form_Activate() 

Set Print erl con False, ™ 
End Sub 



Private Sub Form_Load() 

IblOesltnatton * - 

tblPage ■ - 

IbiSpeed « 
End Sub 



/¥■* 
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frmFaxSend.frm - File DedardtMs 
-i \ 



Attribute VB_Name ■ -frmFaxSen<r 
Attribute VB_GlobalName Space » False 
Attribute VB_Creatab!e * False 
Attribute VB Predectarecld ■ True 
Attribute VB_Expo»ed » False 
Option Explicit 



Sub ReloadGroupsUstQ 
Dim i As Integer 

With cm bo Groups 
.Clear 

.Additem ".Select Recipients ManuaPy" 
. For i « 1 To FAX_DATA.iGroupsTotal 

Elf FAX_OATA.*GroupTiUe<i) o - Then 
.Addltem FAX_OATA.sGroupTine(t) 
.itemOata(.Newtndex) a i 
End If 

I Next! 

End With 

End S ub 



Sub ReloadLocationsUst() 
Dim t As Inteoer 



D 



With tetLocattons 
.Clear 

For I » 1 To FAX.OATA JLocTotal 
Additem FAXJ3ATA.sLocPersonr4arne(l) 
.ItemOata(.Newlndex) - i Tceep inxiex 
Nexti 
End With 



End Sub 



Private Sub btnAddGroup CfickQ 

Dim I As Integer, r Aa Integer. sSection As String 
gsEdiiGroupName ■ ~ 
gsEditGrouplndexes » ~ 

Load frmf axEdUGroups 
frmFaxEd8Groupa.Show vbModal 

If gsEditGroupName » - Then Exit Sub 'no name was anatarad 

I • Ge0ndexToFaxGroupName(g3EditGroupName) 'see if name is ainady to tha fist 

. ifl»07hen 'nana is not in Ust yat 

*S action » Tax Groups' 
With FAX_DATA 
'.Add me new name to tha fax data strum* 
'Baton saving new data, ctaar out tha old strings 

r • WritePrtvateProfBeString(sSectioru ByVal 04, ByVal 04. gsFax File Spec) 
JGroupsTotal • JGroupsTotal ♦ 1 'incaman: count oy one 
.sGmupTftte<JGroupaTotal) ■ gsEditGroupName 
.sGraupNameslnTIBe(JGn)upsTotaO ■ gsEditGrouplndexes 
SavetNlSetting gsFaxFSeSpec. aSeccon, Total Groups'. CStrt.rGroupstotan 

: Fori -0 To JGroupsTotal 
SavelNISetting gsFaxFileSpec, sSection. "Group * ♦ CStr(i). .sGroupTidefj) 
SavelNtSettinggsFaxFaeSpec, sSection. "Group Locations " ♦ CStrfj). .sGroupNameslnTttiefl) 
Next I 

crnboGroup*Addltem gsEditGroupName 

crnboGroups.ltemOata(cmboGroups,Newtndex) o .IGroupsTotal sava index 

cmboGroups-Ustlndex - cmboGroups.Newindex 
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frmFaxSend.frm- btnAdcJGroiip^dic^ 




End With 

EJs© this name already east 
Msg Box "The mm* " ♦ gsEdii Group Name ♦ • a already entered." 

End If 



End Sub 



Private Sub btnClose_Click{) 

Unload Me 
End Sub 



Private Sub btnDeleteGroup_Click() 
Oim i As Integer, r As Integer, sMSG As String 

gsEdSGroupName - cm bo Groups. Ust(cm bo Groups. List Index) 

sMSG • The following name and related information win be permanent deleted." ♦ vbCrtf ♦ gsEdltGroupName ♦ vbCrU ♦ vbCrU ♦ "Do 
you want to delete 87" 

r - MsgBox(sMSG, vbYesNo ♦ vbOefault8utton2 ♦ vbQuestlon, Xonfirm Name Deletion") 
If r«vbNo Then Exit Sub 

RemoveGreupFmmf axUst gaEditGroupNama 
RebadGroupsUst 

cmboGroups,UstJnd*x » 0 'detMK to manual se/ecboos 
End Sub 



Private Sub btnDeleteName_Click() 
Dim I As Integer, r As Integer, sMSG As String 

gsEditName » Uttecations,Ust(lstUcatlon3.Llstlndex) 

sMSG ■ The following name and related Information win be permanently deleted." ♦ vbCrU ♦ gsEditName ♦ vbCrtf ♦ VbCrU ♦ "Do you 
want to delete NT 1 
r • MsgBox($MSG. vbYesNo ♦ vbOefauft8utton2 ♦ vbOuestion, -Confirm Name Deletion! 
If fvbNo Then Exit Sub 

RemovtNameFromFaxUst gsEditName 
RetoadLocationsUst 
. If WLocat»ns.UstCount < 1 Then 




btnOeleteName.Enabied » False 
End If 



cmboGroups^CUck cause apprvpnaze boxes to be resafected 



End Sub 



/S-d 
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frmFaxSend.frm - btnEditGroujr/Sli/' 



Private Sub btnEditGroup_ciick() 
OUn I As Integer, r As integer, sSection As String 

With cmboGroups 

gsEditGroupName - .Ust(.Ustlndex) 

|.GettncJexToF«GroupName(gseditGroupN3me) Qe t «ce , frcm secure 



gsEdttGrouplndexes - FAX JJATA.sGroup Name slnTiUe(l) 
frmFaxEdJt Group*. Show vbModal 



.Ust(.Ustlndex) - gsEdHGroupName 
End With 

With FAX_OATA 

.sGroupTilIe(i) » gsEditGroupName 
.sGroupNamestnTitteffl » gsSdltGrouplndexes 

L" t 52 tePr « nieSWn 9(»Section, By Val 04. By Val OA. gsFaxFBeSpec) 
SavelNISettmg gsFaxFBeSpec. aSection. Total Groups*, CSM iGrouosTotaO 
. For I ■ 0 To .KSroupsTotal 

SavelNISettirig gsFaxFBeSpec, sSection. "Group - ♦ CStr(l) .sGrouDTrtfem 
SavetWSetting gsF.xFaeSpec. aSection. 'Group locations - ♦ CStr(l). .sGroupNam«tnTttle<Q 
End W0h 



UpOateUstBoxSelections gsEditGrouplnde 
End Sub 



Private Sub btnEditName_Click() 
Dim I As Integer 

gsEdftName - tetLocatiotw.UstOstLocationa.UsUndex) 

Ll C ^^" T0 ^ L °rf^ mC(S5EdKNa,ne) Wctxinx from sf/ucfura 
gsEdaVoice - FAX_OATA.sLccVoiceNumberfl) 
gsEoHFax - FAX.OATA jtocFaxNumber(i) 

mriFixEcffllo cations. Show vbModal 
lstLocationa.Ust(lstUcations.Ust]ndex) - gsEdUName 
FAX_OATA^UcPersonName(I) • gsEd&Name 
FAX^OATA.siocVoiceNumberfj) ■ gsEditVolce 
FAX_DATA.slocFaxNumber(i) » gsEdHFax 

End Sub 



Private Sub btnNew_Click() 
End Sub 



WO 99/35588 



frmPaxSend.frm- blnNewNafraTG 



Private Sub btnNewName Clickn 
Dim I Aa Integer ~ * U 

gsHdttName = - 
g*Ed*Voice « - 
gsEdttFax * - 

Load frmFaxEdUlocattons 

frmFax£dilLocat»n».Caption - "Enter New Narm,- 

rrmFaxEditLocaUons.Show vbModal 

If gsEditName * - Then Exit Sub 7™ M ~ 



r— Ifl »0 Then */J*/ne«norto«»yer 
VWh FAXOATA X 

tetLocationa^ddltcm gsEditNeme 

— Etae this /t9m9 maty txtst 

MagBox The name - ♦ ga e dKNarne ♦ - f, already entered." 

- End If 
End Sub 



'see if rt9nta ts tfr^sdy m tte ftsr 



'save mtf ex 



C 



Private Sub btnSendFax CBckf) 

On Error GoTo btnSendFax_Error 
If LenflxtFBeToSend) < 2 Then 

£?S *"* h "° Wb '~ Bon * **• <*« • p-w la..", vbex^.uoa "No n. s-«*r 

End If 
Create TxiS ummaryFUe 

•f-.tl.miO ♦ -Lr PP -™ * P *T_OATA.^,t l ^U«»l.m. ♦ • • ♦ PAT_DATAjPatientRrstNani 

Sl^r~ N "' °»™«» c , naem ^ ap<o 

^On Etior GoTo MnS«ndF.x_Em>r 



| H WLoejUontUaCount Th«n 

wan ocfix 

•FaxFiles ■ aOeatFaeSpec 
-FaxReaolutten . FAX_OATA.bFaxResolution 
.UMfCompany . FAX.DATA,aSenderCompany 
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frmFaxSend.frm- blnSendFaxjX 




.FsxRetries-FAX DATA .{Retries 
- End If 

WKhgcFax 



i . ™ ' ,n «n 'flu 

.Fa,Su^ect.App. ri , te ». RBpoIt r 

:F«^^-- MTA ^• r »^«-«03«.oc,«o„,«e ln Oa,, ( 0 . „ 
«T ' FAX -° ATA — • ^AX_OATA.sLscFa>NumbtXMLoeillensJlcniOUa(l) . „ 



.ScndFax 
. Endrf 

End VWh 
. NtxM 



btnSendFax Exit 



Exit Sub 



btnSendFax_Eiror; 



End Sub 



Dim A» Integer, r As M. fl , f , JAs lNam . A< ^ 

With cm bo Groups 

lM^^ ToFwGmu P N » m «(U»t(JJstIndcx» 
UpOat^aoxSa^ FAX.DArlSXmestnTTd^ 

bf.OefctaGroup.Enab.ed - True 
Else 

btnEditGroup.E/iaWed » Falsa 

btnDeleteGroup.Enabled - False 
End If 

End With 

End Sub 



/<T3 
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frmFaxSend.frm- UpDateLislBoxsek 



With ^locations 
.Clow 

For I « 0 To FAX_OATAJLoeTolil . I 
Than jam. /ecaco/is att9eh l r" w 



, ForJ-lTof 

— For I « 0 To .List Count . i 

If JtemOata(l) - •Tempi*© Then ° J/n " «* «P*p/7are on« 

.Selected(l)«True 
Exft For 
End If 

. Nexti 

I Next J 

. End If 
End With 



Lent 



r 



End Sub 



Private Sub Form ActivateO 

5etPn«terlccnFalse> 
End Sub 



Private Sub Form Load() 

RetoadLocattonaUst 
Reload GroupaUst 
mUesun&isinnnQt 

Private Sub Form_Unload(Cancel As Integer) 
Dim I As integer, r A* integer, .Section As String 
Wfth FAX_OATA 

•Section « "User Setectfon*- 

J^o^etSeteeted - cmboGroupsJJsttndex 
E^""* — ^ Croup Selected-, CS^upUstSe^ed, 

With FAX_DATA 
•Section ■ Tex locations' 

rl^^l^ n ^ d3t9 ' dd string* 

Fori* 1 ToTocTcS P ' SSeCU ° n ' ToW ^crtton.-, CStnTAocTotai) 

Se^elNISe^ w steS™ -T" 5 ?" It CSlrW ' ^cP.rsonN,me(l) 

SavelNlSettinJ geFaxFaeS^ 222 t CSUfl) « *^«N«mber<!) 

Next I * ^ ° SPCC ' 5Sacti0n ' * * CStrfi). .sLocVoteeNumber(I) 



•Section « *Fex Groups' 



Pmrate Sub IstLocations Clickf) 
0«n i As Integer. sTemp As S^g " 

btnEdjtName.EnaWed « True 
blnOeleteName.EnaWed • True 

( ^.SetededO, Then .Temp , aT emp ♦ CStr(.rtemO.ta(0, ♦ T 

End With 

-j?r ATA, ^ N ^ rate<o> °" T,mp 



End Sub 
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frmFaxlog.frm - File Declarator 



Attnbute VB.Name - HfrmF MLog . 
Attnbut. VB.GIobaiNameSpac? 1 . False 
Attnbute VB.C/eatable « Fmlut 

iyS? X?- Predecl * re ^d ■ True 
Attribute VB_E*pos#d - False 
Option Explicit 




Private Sub btnClose Click/) 

EnTsT can** 




Private Sub Form Resize*) 

F«£n , 221 " tA ^ • P«M»n,.Lett -Iso 
End M,i<eW ' 'axMaM.Top - 500 



J^S.r^«.c*^ As lnteger) 

— - Caaoo 

FaxMani .Log » Pending 
Caae 1 * 

Ca ^ an1 -^« Completed 

FaxManl.Log • Failed 
- End Select 
End Sub 
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frmFuxEditGroups.frm - File Declares 



Attribute VB_Nam« - -frmFwEditGraim,- 

Attribute V8_Creatable ■ False 
Attribute VB .Prededaredld • True 
Attribute VB.Exposed. False 
Option Explicit 




Private Sub btnClose Clickn 
Unload Me ~ " 

End Sub 



Private Sub Form Activate*) 

SetPrfntericon Falser- 
End Sub 



Pnvzte Sub Form_Load() 
01m I As Integer, | Aslntegsr, r As ,„ te9 . r . .T.n.pUs.noo, As St™ 9 

.Char 

For jTj2 To PAX.OATA JLocTotal . 1 
^•mOataCNewlndex).! Aeepinde/ ' 



' Pa/ ? # »• »tt*ch*dhc*tioto and c/iec* t7>« _ 

' lfr F ^ n ^^'<w«waraaftecfied P M 

porj»i Tor 

.5elected(l) • True 
Exit For 
End If 
Next I 

— Next | 

— End If 
EndWKh 

End Sub 



, •TempUstQ) 

the nemes ena check appropriate ones 



P ^!* S " b F °™-Unload(Cancel As Integer) 

Otm I Aa Integer, r Aa Integer. .Section Aa String ' 



gs€d«Grouplndexea«- 
Wnh 1st Locations 

Porl.OTo.UstCount.1 
*»dd this mCex to the 6st 

fl-n gsEdWS^up^, . psEdao™^^, . cs^ftemO.^, . T 
End WUh 



End s^ Gf ° UPName ' Whtame 
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btnOo^.SetFocus H9y W9s Prnsz^ 

End Sub 



As Integer) 



C 



End Sub 
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JrmFaxEdilLocanon s . frm . File Deda ^ 



Attribute VB_Exposed - False 
Option Explicit 

Dim bxSaveData Aa Boolean 

End Sub 




Private Sub btnClose Clickn 

bxSavtOata « Taje " w 
Unload Me 
End Sub 



Private Sub Forrn_Aetrvate() 

bctName.SetFocue 
SetPrinterlcon False — 
End Sub 



Private Sub Form Load() 

WName-gaEditNeme 

WVoiceNumbef.gsEdaVofce 
^Number. 



r 




End Sub 



WnCtoss.SetFocus * y W9S press9d 

- &«U Aadlm0 to* tab koy 

End Sub 
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_ffmFaxEditLocations.ffm> bciFaxNumber 



-yPress 



M\t~t .... . _ , v cm»r koy was prass«<j 



6<tVoietNumber.s«IFocui 



End if 
End Sub 



:3b kev 



End Sub 



c 



End Sub 



End Sub 




WnChangeBatteries.Enabled - Fuse ~ 'rZlJ. 

CaB Chang 8 Batteries«equest prewt nam* ca//s r 0 dew* 

btnChinge8attaries.Enabled - True v^m. ^ _ 

End Sub fcwwn agar* 



Private Sub btnClose ClickO 

Unload 
End Sub 



Private Sub btnReadEntireContents ciiekn 

0.m r As rntegar, ,En«Code Aa Long , W^ CM) 

If f -^SS Wt * afp "™* «vad t.ton> prcce.dmg 

btnRtadEntira Contents Enabled ■ 

btnSandData.6nabled -Fab. ^J?™' f^" 5 "" to d* w« 

OWCepPoiJlngOavIca - Faba "'T'* ^ * 

Wait 0 *5 *t°P poUvg tor now 



c?eer our *>* boxes tutor* natSng dafa 



Watt (US 

MPatientLastName » - 
WPattartFirstNaine-- 
tottPatlenMD-- 
brfTxCanter 
txtOrug.Ctear 
bctOrgsn.CJear 
bctSertafNumber » - 
txtDosaSize « " 
txtDoseTime(l) « - 
txtDoseTlmt(2) » - 
txtOoseTkne(3) ■ - 
txtOosaTims<4) - - 
bitDosesPerOey ■ - 
txtDoaeLocJtouWours ■ - 
txtOavfeaStartad ■ - 
WMedJeattonRemaining ■ - 
txtflattafyChangartmar-- 
txtEventCount • ™ 

^W RMd ^ Mem °^ n,0 ^ PAT -0ATA, lEnorCode, 

PAT^ , A?r^ eCcmmOWo 9 p AT_0ATA, Ma 
PAT 0ATA.«P8bamDataFfI«Nama » - 
e »«Mam.mnuFilaSava.Enabiad - Falsa 

EraaeDatalnMerooiy PAT DATA 
gbPaOentOataNotSaved ■*False 
^Dis^ayEmKMassaga lErrorCod* 

gbKaapPoUlngOavlce » Trua 
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frmOevTceinitialize.frrn . hlnRea*EniireCoa. 



<s_Click 



btnS«ndData. Enabled a True 
RefrMMflOpenfomu 

End Sub 



Private Sub btnSendData ClickO 
Dim i A, Integer, r A* Integer. irrorCode As long 



r - VafidateOoseNurnbers<Me) 
If r« False Then £xft Sub 



Beep 

btnSendData.Enabled • False 

btnReadEntireC«rttent».En.bled - Fabe te tfewce 

gbKee R PolfirgDevtc 8 - False ^ 
Waft 0.2S ircp A***a7 for new 

On Error GoTo btnSendOata_Cft*_Em>r 
PAT ^i , ?S?! M ' Rrn 'W) Than 

F * r £ TAM **«*«<»>»T mm . Tta.VW»«WDM.TIn,.( M 

PAT ft««r* jo .. ._ 



— use 

. Next I 



Sndcafe that no 6m# was s*{ 



btnSendData Click E*fc 



QbKeepPolfingOevice • True 
Exit Sub 



True 

'ccnonut polling tfevi 



MnSendData_Cttdc Error 

_ ObpfayErrorMea^acelErrorCode 
WesumeO temp ttst 

End SuT* btnSefttf0atl - Cfl «* EjcR 



Private Sub Form Activate!) 

PoptdaleO^rtceCommOlaiog PAT DATA M« 

SctPrintertcon Fats* "* 
End Sub 



Private Sub Form LoadO 
Ma.Left • o " 

^ornmOK-99 ^^.^^^^^^^^ 



P ^f^° TO - Que ^ Un, ^^nce, As integer, UnloadMode As Integer) 



r - VaBdateDewNumbereOMe) 
If r • Fafse Then Cancel « Tma 
End Sub 



End Sub 
P pa?L S t?^ 



'save Oos* Lockout Hours 



Private Sub txtDoseSize Chancer) 



Pl T^ t t Sub WDosesPerOay ChangeO 



'save Doses per day 



Private Sub txtOrgan ClickO 
^OATA.^.^ 



Private Sub txtPatientFirstName ChanaeM 



Private Sob txtPatientID ChangeO 



s«v» Fisent narrt 



Private Sub brtPatJentUstNaine Chanae/1 



End Sub 



*Mvt Patient riime 



Private Sub txtSerialNumber Chanaen 
End Sub cased* Wumber '^va serial number 



p ™teS"btxtTxCenter ChangeO 



I U , f 1 ^ e < trtOoM,n n»«0ndex)) Then 

j lf»ndex < 0 Th«n 

txtOo»«Tlme(lndex) ■ - 
Exit Sub 
I End If 

— ElM 

Hndax*23 
_ End It 

^ * " * ^«(TlrneV,H W (COat«<rD,ty l nc^ent), ( gsTbn.D^yForm.t, 

End Sub 
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frmo, vicemitiafee.frm . UpO 0wnoSseTiR _ JpCSck 




I If taO«,(t^o» ri me(lna«), Then 

I If itndex > 23 Then 

WOoseTime(lndBx) = - 
Ex* Sub 

I End If 

_ Els* 

UiKtex » 0 
- End If 



fDafy Increment « (ilndex / 24) 
E^ 7 ^" — ^^^^(CO,,,^^.^ gsTtfnsOisptoyFonrat) 
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frmGcJOateTinv.. frm . n\e Doclaraa 



Attnbute VB.GtobalNaroeSpace » Falsa 
Attribute VB.Craatabta - Fata* 
Altrtbwti VB_PrededaredJd » Tore 
Attributa VB.Expoaed ■ Falsa 
Option Exphctt 

Private Sub btnOateCancel Clickf) 

gfTempCreatinina ■ 0 
gaTempCustomlnfo • - 
Unload frmGetOateTime 
End Sub 



c 
r 



Private Sub cmdDateOK CHckf) 
Vafttfara Jn» xxt boxes OeforTexiz 
WVal(txtCya.Te*t)«OThen 

^. 0 SeX:oS ent,f 1 CYA ,eVeP ' ^ Re^utracT 

Exit Sub 
End If 



If Val(txtCreatinlne.Text) » o Than 
MagBox "Plaasa antar a Creatinine 
txtCreataiine.Satfocw* 
Exit Sub 

End If 



vbExdamation. "VaJu. Raqutre<r 



'On Emr Resume Next 

gfrempCfeadnina • bctCraaHnine.Text 
g»TampCustomtn(b ■ fctCuatomlnfo 

Unload frmGetOateTbne 
"On Error GoTo 0 
End Sub 



Private Sub Form Activated 

SetPnntartcon False,"*- 
End Sub 



Private Sub Form Load() 

Ma.Wldth • pnlGetDala.Vtfdth ♦ 80 
Ma.Heigm • pnlGetOate. Height ♦ 90 
WTraeEntry.-nma » CStrfTime) 
end Sub 
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Function Index 




bo.Web8rowser_OowmoadComp.ete (frmBrowser.frm) 95 
brwWebBrowser.NavigateComptete (frmBrowser.frm) 95 
btnAddGroup_Click (frmFaxSend.frm) . 134 
btnCancel_Click (frmFaxEditLocations.frm) . 144 
btnChangeBatteries.Cfick (frmDevfceDiagnostics.frm) . 128 
btnChangeBatteries.Clicx (fmiDevicelnitialize.frm) . 146 

bmChangeCompliance.ClickffrmOosingCalendar.frm) .in 
btnClose_Click(frmAJIPatients.frm) 1 100 
btnClose_Click (frmDeviceDiagnosfcs.frm) , 128 
btnClose_Click (frmDevicelnitialize.frm) . 146 
btnClose_Click (frmDosingCalendar.frm) . 1 1 1 
btnClose_Click (frmFaxEdttGroups.frm) , 142 
btnClose_Click(fnnFaxEditLocations.fr m ) . 144 
btnClosej;iick(frmFaxLog.ftm), 141 
btnClose_Click(frmFaxSend.ftm). 135 

btnClose_Click((rmPatientOosingRptfrm) .118 
btnClose_Click (frmPrintfrm) . 124 
btnClose_Ciick (fmiReadDeviceData.frm) . 122 
btnClose_Click(frniRecentDosingGraph.frrn) . 108 
btnConfigureFax_Click (frmOpBons.frm) . 88 

btnDateCancel_Click(fmiGetDaJeTime.frm) . 151 
btnDeleteGroup.CBck (frmFaxSend.frm) . 135 
btnDeleteName.Click (frmFaxSend.frm) . 135 
btnDeleteUserEvent.Cfick (frmPafientDosingRptfrm) . 119 
btnEdi«Group_aick(frmFaxSend.frm). 136 
btnEdHName_CBck(frmFaxSend.frm), 135 
b«nNew_Click (frmFaxSend.frm), 136 

btnNewName_Cllck(fnuFaxSend.frm). 137 
btnNewUserEvent.CBck (frmPatientDosingRptfrm) . 1 19 

btnPrinter_Previ ew _cBck_P roc (Printing.bas) . 46 
btnPrinlNow_Click (frmPrintfrm) . 124 

btnPrintPage_Click (frmPrintfrm) , 124 

btnReadEntireContents.Click (frmOeviceDiagnosf cs.frm) . 128 
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Function Index 

btnRead£ntireContents_Click (frmDevicelnitiaJize.frm) , 146 
btnReadEnlireContents,Click (frmReadDeviceOata.frm) , 122 
btnRefresh_Click (frmPrintfrm) , 124 
btnSendData_Click (frmDeviceDiagnostics.frm) , 129 
btnSendData_Click(frmDevicelnitiaii2e.frm) , 147 
btnSendFax_Click (frmFaxSend.frm) , 137 

C 

CalcDayDoseScore_AJ!Doses (General.bas) , 4 
CaicDayDoseScore_OnTime (General.bas) , 4 
CalcDaysinMonth (Calendar.bas) , 61 
CafcDosesS'umTakenOnSpecificDay (General.bas) , 5 
CalculateAHPatientsComplianceOnDisk (frmAIIPaUents.frm) , 1( 
CalculateSinglePatientCompliance (frmAIIPatients.frm) , 100 
Caiendar..OayChange(frmDosingCalendar.frm) , 111 
Calendar.MonthChange (frmDosingCalendar.frm) ,111 
CalendarJtfouseMove (frmDosingCalendar.frm) , 112 
CalendarJTearChange (frmDosingCalendar.frm) , 112 
cboAddress_Cfick (frmBrowser.frm) , 96 
cboAddress_KeyPress (frmBrowser.frm) , 96 
ChangeBatteriesRequest (Comm.bas) , 28 
chkDoseChanged^Qick (frmDosingCalendar.frm) , 112 
chkDoseChanged_Click (frmPatientDosingRptfrm) , 119 
chkDoses_C!ick (frmPatientDosingRptfrm) ,119 
chkDosesMissed_Click (frmDosingCalendar.frm) , 112 
ch*DosesNotCornplied^^ t 112 

c^kDosesTaken_Click(frmDosingCalendar.frm) t 112 
chkLoaaTipsAtStartup^cn<*(frmTip.frm), 99 
chkUserDefined^Cnck (frmPatientDosingRptfrm) , 120 
chkWeekNumbers_C!ick (frmDosingCaiendar.frm)' , 112 
cmboAverageDays^cnck(frmRe«ntDosingGraph.frm) , 108 
cmboChartType_Click (frmRecentDosingGraph.frm) , 108 
cmboDataToView_aick (frmAnPatients.frm) , 101 
cmboDataToView_cl«ck (frmRecentDosingGraph.frm) , 108 
cmboDateSelectionClick (frmAIIPatients.frm) , 101 
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Function Index 



cmboDa.eSeleCion.aick (frTT,Re«ntOosingGraph.frm) 108 

cmboGroup S _ciick(frmFaxSend.frm). 138 

cmdApply_ciick (frmOptions.frm) , 88 

cmdCancel.Click (frmFaxStatus.frm) , 133 

cmdCancel_Click (frmLogin.frm) . 86 

cmdCancel_Click (frmOptions.frm) , 89 

cmdOateOK.CMck (frmGetDateTime.frm) , 151 

cmdNextTip_Click (frmTip.frm) , 99 

cmdOKaick (frmAboutfrm) , 92 

cmdOK_Click (frmLogin.frm) . 86 

cmdOK_Click (frmOptions.frm) , 89 
cmdOK_aick (frmTip.frm) . 99 
cmdSyslnfo_Click (frmAboutfrm) , 92 
Comm_CheckComm (Comrabas) . 28 
Comm.GetDeviceReply (Comm.bas) , 29 
CommJnitializeCommPort(Comm.bas), 39 
Comm_ReadEntireMemoryContents (Comm.bas) . 34 
Comm_ReadFirmwareVersion(Comm.bas). 30 ' 
Comm_SendCustomData (Comm.bas) , 35 
Comm_SendOataToDevice (Comm.bas) , 45 
Con.m_SendDosingParams(Comm.bas), 37 
Comm.SendResetaockAndBattery (Comm.bas) . 35 
Comm_SendSerialNumber(Comm.bas). 38 
CommTimer_Timer(frmMain.frm). 76 
ComputelniSectionChecksum (GeneraLbas) . 2 
ConvertHexStringToAscii(Comm.bas). 38 ' 
CreateCalendarTimeScale (frmDosingCalendar.frm) . 113 
CreateChecksum (Comrabas) . 39 
CreateTxtSummaiyFile (General.bas) , 6 
D 

Device_OnComm(Comm.bas), 40 
DisplayCommError(Comm.bas), 30 
DisplayCommOk (Comrabas) , 31 
DisplayCurrentTip (frmTip.frm) . 99 
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Function Index 

DisplayErrorMessage (Comm.bas) , 31 
DoNextTlp (frmTip.frm) , 98 
DrawAKCompliedOosesTaken (Caiendar.bas) , 62 
OrawAIIDoseSizeChanges (Calendar. bas) , 61 
OrawAIIDosesMissed (Caiendar.bas) , 63 
OrawAIINonCompliedDosesTaken (Caiendar.bas) , 63 
DrawHorizontalLine (Printing.bas) , 47 
DrawSingleCompliedDoseTaken (Caiendar.bas) , 73 
OrawSingleDoseMissed (Caiendar.bas) , 74 
DrawSingleDoseSizeChange (Caiendar.bas) , 64 
DrawSingleNonCompliedDoseTaken (Caiendar.bas) , 65 
E 

EraseDatalnMemory (General.bas) , 5 
EstablishDeviceComm (Comm.bas) , 39 
EventDelete (GeneraJ.bas) , 2 
EvenUnsert (General.bas) , 3 



FaxMan^ConfigurationDone (frmMain.frm) , 76 
FaxMan1_FaxStatus (frmMain.frm) , 76 
FfleExists (General.bas) , 7 
FindClosestDatelnArray (General.bas) , 23 
FindFiretMatchingDatelnArray (General.bas) , 23 
RndPrescibedDoseSizeForSpedffcOay (General.bas) , 3 
Form^Activate (frmAIIPa(ients.frm) , 102 
Form_Activate (frmOeviceDiagnostics.frm) , 130 
^^J<^te(imDe^celnitia\ize.iTm) , 148 

ForrnActivate (frmOosingCalendar.frm) . 113 

ForrnActivate (frmFaxEditGroups.frm) , 142 

Form^Activate(mnFaxEditLocations.frrn) t 144 

Form^Activate (frmFaxLog.frm) , 141 

Form^Aclivate (frmFaxSend.frm) , 139 

Form_Activate (frmFaxStatus.frm) , 133 

Form^ActivatetfrmGetDateTime.frrn), 151 

ForrnActivate (frmOptions.frm) , 89 
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Function Index 

Form_Activate (frmPatientOosingRpUrm) , 120 
Forrn_Activate (frrnReadDeviceOata.frm) , 123 
ForrnActivate (frmRecentDosingGraph.frm) , 109 
Form_Actrvate (frmTip.frm) , 99 
Formjnitialize (frmDevice Diagnostics. frm) , 130 
Form_Load (frmAboutfrm) , 92 
Form_Load (frmAnPatients.frm) , 103 
Form_Load (frmBrowser.frm) . 95 
Form_Load (frmDeviceDiagnostics.frm) , 130 
Form_Load (frmDevicelnffialtze.frm) , 148 
Form_toad (ftroDosingCalendar.frm) , 113 
FormJ.oad (frmFaxEditGroups.frm) , 142 
Form_Load (frmFaxEditLocations.frm) , 144 
FormJ.oad (frmFaxLog.frm) , 141 
FormJ_oad (frmFaxSend.frm) , 139 
Form_Load (frmFaxStatus.frm) , 133 
Form^Load (frmGetDateTime.frm) , 151 
FormJ_oad (frmLogin.frrn) , 86 
Form_load (ftmOptions.frm) , 89 
Form^Load(frniPatientDosingRptfrni). 120 
Form_Load (frmPrintfrm) , 124 

Form^toad (frmReadDeviceData.frm) , 123 
Form^Load (frmRecentDosingGraph.frm) , 109 
Form_Load (frmSplash.frm) , 85 
Form_Load (frmTip.frm) , 99 

Form_MouseMove(frmDosingCalendar.frm) , 115 
Form_QueryUnload (frmDevicelnitialize.frm) . 148 
Form_QueryUnload (frmPrintfrm) , 125 
Form_Resize (frmAIIPatients.frm) , 103 
Form_Resize (frmBrowser.frm) , 96 
Form_Resize (frmDosingCalendar.frm) ,115 
Form_Resize (frmFaxLogirm) , 141 
ForrnResize (frmPatientDosingRptfrm) , 120 
Form_Resize (frmPrintfrm) , 125 
Form_Resize (frmRecentDosingGraph.frm) , 109 
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FormJJnload (frmDevice Diagnostics. frm) , 130 
FormJJnload (frmDevicelnitianze.frm) , 148 
Form^Unfoad (frmDosingCalendar.frm) .116 
FormJJnload (frmFaxEditGroups.frm) , 142 
FormJJnload (frmFaxEditLocations.frm) , 144 
Form_Unload (frmFaxSend.frm) , 139 
FormJJnload (frmReadDeviceData.frm) , 123 
Form_Un!oad (frmRecentDosingGraph.frm) 1 10 
frameView_MouseMove (frmDosingCalendar.frm) , 116 
G 

GetDaigRefNumber (Comm.bas), 32 
GetFaxLocations (Faxbas) , 57 

GetFileNameFromSpec (General.bas), 17 
GetJndexToFaxGroupName (Faxbas) , 58 
GetlndexToFaxLocName (Faxbas) , 58 
GetiNISetting (General.bas) , 7 
GetKeyValue (frrnAboutfrrn) , 93 
GetOrganRefNurnber(Comrabas), 32 
GetPatientDataFromDisk (General.bas) , 7 
GetProgramPreferences (GeneraKbas) , 9 
grid^AfterEdit{frmPatientDosingRptfrm^ 120 
gridJSIick (frmAIIPatients.frrn) , 104 
gridjDblClicx (frmAllPatients.frm) p 104 
grid_KeyDown (frmPatientDosingRptfrm) , 121 
grid_RowColChange (frmPatientDosingRptfrm) , 121 
H 

HScroII1_Change (frmPrintfrm) , 125 
HScrolH.Sooll (frmPrintfrm) . 125 

I 



InitPageMargins (Printing.bas) , 52 
InitPageProperties (Printing.bas) , 53 
InterpretDosingData (Comm.bas) . 32 
InterpretErrorFIags (Comrabas) f 33 



WO 99/35588 



PCT/US98/22830 



Function Index 

InterpretScoreOata (Comm.bas) , 41 



IsOoseWithinPrescribedTimeRange (Calendar.bas) , 



IbWctivePrinterciick (frmPrintfrm) , 126 
LoadPictureToPrinterControl (Printing.bas) , 52 
Loacffips (frmTip.frm) , 98 
lstLocations_C!ick (frmFaxSend.frm) . 140 
IstLocations^DblClick (frmFaxSend.frm) , 140 
IstLocations^KeyPress (frmFaxEditGroups.frm) , 143 



Main (General.bas) , 11 
MDIForm_Load (frmMain.frm) , 77 
MDIFomiJJnIoad (frmMain.frm) , 77 
mnuAccessWebSite_Click (frmMain.frm) , 77 
mnuFaxConfigurejSlick (frmMain.frm) , 77 
ninuFaxSend_Cfick(frmMaiafrm) t 77 
mnuFaxViewLog^CUck (frmMain.frm) , 77 
mnuReExitClick (frmMain.frm) , 64 
mnuFHeMRU^CIick(frmMain.frm), 84 
mnuFneOpen^Oick (frmMain.frm) , 83 
mnuFilePageSetup^click(fmiMaiafrm), 84 
mnuFilePrinLCKck (frmMain.frm) , 84 
^^ePrope^esj:nck(fnnMairx.f r m) t 78 
mnuFileSave^Click(frniMain.frm) t 78 
mnuFfleSaveAs - .cnck(frmMain.frm) r 83 
mnuReSend^aicK(frmMain.frm) # 84 
mnuGenEm>r_Click (frmMain.frm) , 78 
rrmuHe!pAbout^Click(frmMain.frm) l 79 
mnuHelpContents^aick(frmMain.frm). 82 
mnuHef P DeviceOiao_cnck(frmMain.frm) f 78 
rrmuHelpSearch^Cli(A(frTTiMain.frm), 82 
mnuHelpTlps^ciJck (frmMain.frm) , 78 

mnuReadDeviceOata^Cnck(frmMain.frm) ( 79 
mnuSendDewceData.CfickffrmMainJrm), 79 




L 



M 
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Function Index 

mnuViewAIIPatients_Click (frmMain.frm) , 79 
mnu\^ewCaIendar_Click(fnnMain.frm), 79 
mnuVlewExplorecClick (frmMain.frm) , 79 
mnuViewOptions^Click (frmMain.frm) , 79 
mnuViewPatientDosingReport^click (frmMain.frm) , 80 
mnu^ewPatientSummary^aick(frmMain.frrn) f 80 
mnuViewStatusBar^CHck (frmMain.frm) , 80 
mnuViewToolbarClick (frmMain.frm) , 80 
mnuWindowArrangelcons^aick (frmMain.frm) , 83 
rnnuWindowCascadejaick (frmMain.frm) , 83 
rnnuWindowTiieHorizontaLCIick (frmMain.frm) , 83 
mnuWindowTileVer^ 83 
MoveFormObjects (Calendar.bas) , 72 

O 

OpenPatientData (Generai.bas), 13 
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1 . A computer-implemented method for monitoring medication dosing by a patient, 
comprising: 

storing patient data, including a medication name and amounts of the medication 

prescribed for a patient; 
retrieving patient data, including times and amounts of the medication delivered to the 

patient; 

evaluating data by analyzing drug dispensing data and patient data to determine 

compliance of the delivered medication to the prescribed medication; and 
displaying the evaluated data. 

2. The method of claim 1, wherein storing patient data further comprises storing 
information from a remote device over a communications line. 

3. The method of claim 1, wherein storing patient data further comprises storing data 
from local memory. 

4. The method of claim 1 , wherein storing patient data further comprises storing user 
input. 

5. The method of claim 1 , wherein retrieving patient data further comprises retrieving 
data from local memory. 

6. The method of claim 1, wherein retrieving patient data further comprises retrieving 
user input. 

7. The method of claim 1 , wherein displaying the evaluated data displays the evaluated 
data in a patient summary report. 

8. The method of claim 1, further comprising printing the evaluated data. 

9. The method of claim 1 , wherein dosages of multiple patients are monitored, the 
method comprising: 
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storing patient data for a plurality of patients, including the medication name and 

amounts of the medication prescribed for the plurality of patients; 
retrieving patient data for the plurality of patients, including times and amounts of 

medication delivered to the plurality of patients; 
evaluating data by analyzing the stored patient data for the plurality of patients to 

determine overall compliance of the delivered medication to the prescribed 

medication; and displaying the evaluated data. 

1 0. The method of Claim 1 , wherein: 

storing patient data includes storing amounts of an immunosuppressive medication 

prescribed for a patient; and 
retrieving patient data includes retrieving times and amounts of the 

immunosuppressive medication delivered to the patient 

1 1 . The method of Claim 1 , wherein: 

storing patient data includes storing amounts of an analgesic drug prescribed for a 
patient; and 

retrieving patient data includes retrieving times and amounts of the analgesic drug 
delivered to the patient. 

12. The method of Claim 1, wherein: 

storing patient data includes storing amounts of an opiate agonist prescribed for a 
patient; and 

retrieving patient data includes retrieving times and amounts of the opiate agonist 
delivered to the patient. 

1 3 . The method of Claim 1 , wherein: 

storing patient data includes storing amounts of an opiate antagonist prescribed for a 
patient; and 

retrieving patient data includes retrieving times and amounts of the opiate antagonist 
delivered to the patient. 

14. The method of Claim 1 , wherein: 

storing patient data includes storing amounts of a liquid drug prescribed for a patient; 
and 

retrieving patient data includes retrieving times and amounts of the liquid drug 
delivered to the patient. 



180 



WO 99/35588 



PCT/US98/22830 



The method of Claim 1, wherein the step of retrieving patient data includes retrieving 
data transmitted via a carrier wave. 

A computer-implemented method for monitoring patient dosages, comprising: 
retrieving dosing data, including times and amounts of medication prescribed for a 
patient; 

retrieving patient data, including times and amounts of medication delivered to the 
patient; 

determining evaluation data by analyzing the retrieved dosing and patient data to 

determine compliance of the delivered medication to the prescribed medication; 
and 

displaying the evaluation data. 

A memory device storing computer readable instructions for aiding a computer to 
monitor patient dosages of a medicine, comprising: 

instructions for storing patient data, including the medication name and amounts of the 

medication prescribed for a patient; 
instructions for retrieving patient data, including times and amounts of the medication 

delivered to the patient; 
instructions for evaluating data by analyzing drug dispensing data and the patient data 

to determine compliance of the delivered medication to the prescribed 

medication; and 
instructions for displaying the evaluated data. 

A computer system for monitoring patient dosages, comprising: 

a processor for storing patient data, including a name of a medication and amounts of 

the medication prescribed for a patient and for retrieving patient data, including times 

and amounts of the medication delivered to the patient, and evaluating data by 

analyzing drug dispensing data and the patient data to determine compliance of the 

delivered medication to the prescribed medication; and 

a monitor for displaying the evaluated data. 

The computer system of claim 1 8, further comprising a communications link linking the 
processor to a remote device, wherein the retrieved patient data may be received from 
the remote device over the communications link. 
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20. The computer system of claim 1 9, wherein the retrieved patient data is received from 
the remote device over the communications link via a carrier wave. 



21. 



23. 



24. 



The computer system of claim 20, further comprising an input device coupled to the 
processor, wherein the retrieved patient data may be received through the input device. 



22. A method of graphically displaying drug compliance information, the method 
comprising the computer-implemented steps of: 
receiving dosage data representing one or more quantities and one or more 

administration times for delivering a drug; 
receiving administration data representing one or more times when each of a plurality 

of doses of the drug was delivered; 
generating a graphical display of the drug compliance information on a display device, 

wherein the graphical display comprises one or more elements that each 

correspond to a time period; 
displaying, within a first element among the elements, one or more icons that represent 

each dose due within said first period; and 
rendering each of the icons in one of a plurality of formats based on said dosage data 

and said administration data. 



The method of Claim 22, wherein the step of rendering includes the steps of: 
determining whether a particular dose due within the first period was correctly 

delivered based on said scheduling data and said administration data; 
rendering a particular icon in a first format when the particular dose was incorrectly 

delivered; and 

rendering the particular icon in a second format when the particular dose was correctly 
delivered. 

The method of Claim 22, wherein the step of receiving administration data includes the 
step of receiving data indicating an administration time for said particular dose, and 
wherein the method further includes the steps of: 

receiving data indicating a time period in which said drug should be delivered- 
detennining whether the particular dose was delivered within the time period; and ' 

rendering the icon in a third format when the particular dose was delivered 
within the time period. 
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25. The method of Claim 22, wherein the step of receiving administration data includes 

receiving data indicating an administration time for said particular dose, and wherein the 
method further includes the steps of: 

receiving data indicating a time period within the administration time in which said drug 
should be delivered; 

determining whether the particular dose was delivered within the time period; and 

rendering the icon as a particular format when the particular dose was delivered 
within the time period. 

26. The method of Claim 22, further including the steps of: 
displaying a graphical object; 

displaying a second set of icons along an axis of the graphical object, in which the 
second set includes an icon for each dose of the drug delivered within a first 
period, and the position of each of the second set along the axis identifies when 
the respective dose was delivered. 

27. The method of Claim 26, further including the step of said user selecting said first grid 
element associated with said first period. 

28. The method of Claim 27, further including the steps of: 

selecting a first icon of the second set of icons, wherein the first icon is associated with a 
first dose, wherein the first dose is associated with a first administration time; and 
displaying additional information about the first dose, including the administration time. 

29. The method of Claim 22, wherein the step of receiving dosage data includes the step of 
receiving dosage data from a dosage dispensing device. 

30. The method of Claim 29, wherein the step of receiving dosage data from a dosage 
dispensing device includes the step of receiving dosage data from a portable medication 
administration device. 

31 . The method of Claim 22, wherein the step of receiving administration data includes the 
step of receiving administration data from a portable medication administration device. 

32. A method of generating data representing patient medication administration 
compliance, the method including the steps of: 
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receiving dosage data indicating parameter values for delivering a drug to a 
patient, wherein the parameter values specify one or more quantities and one or more 
administration times for delivering doses of the drug to the patient; 

receiving administration data that indicates when each of a plurality of 
doses of the drug was administrated to the patient; and 

generating data indicating a portion of the plurality of doses that was 
delivered according to the parameter values. 



33. The method of Claim 32, wherein the step of generating data includes the steps of 
generating one or more values specifying a portion of said plurality of doses that was 
delivered within a specified time period of said administration times. 

34. The method of Claim 32, further including the step of receiving data specifying a time 
period for which to generate said compliance data, the time period containing a 
plurality of days; and 

wherein the step of generating data includes the steps of generating, for each 
day within a period, one or more values specifying a portion of the plurality of doses 
scheduled for the day that were delivered. 



A method of managing the administration of drugs to a patient, the method 
comprising the steps of: 

receiving dosage data that represents one or more administration quantities 
and one or more administration times for delivering doses of a drug to a patient; 

transmitting, to a dosage dispensing device, data that specifies said one or 
more administration quantities and one or more administration times; 

receiving administration data that indicates how each of a plurality of doses of 
the drug was administrated to the patient; and 

storing the administration data in a memory device. 



36. The method of Claim 35, further including the steps of: 

receiving data specifying a lockout period that must elapse after delivering a dose 
before another dose is delivered to the patient; and 

transmitting, to the dosage dispensing device, data that specifies the lockout period. 

37. The method of Claim 3 6, wherein: 

the step of receiving dosage data includes the steps of receiving data indicating a 
volume to deliver; and 
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the step of transmitting includes the steps of transmitting, to a dosage dispensing 
device, data that specifies said volume. 

38. The method of Claim 35, wherein: 

the step of receiving dosage data includes the steps of receiving data specifying a dose 
of a liquid drug; and 

the step of transmitting includes the steps of transmitting, to a dosage 
dispensing device, data that specifies a dose of said liquid drug. 

39. The method of Claim 3 8, further including the steps of: 

receiving data indicating that a drug container has been removed from the dosage 
dispensing device; 

storing the data indicating that said drug container has been removed; and 
reporting the data in a report of medication events. 

40. The method of Claim 38, further including the steps of: 

receiving data indicating that a drug container has been inserted into the dosage 
dispensing device; 

storing the data indicating that said drug container has been inserted; and 
reporting the data in a report of medication events. 

41 . A method of managing administration of drugs to a patient, the method comprising the 
steps of: 

receiving data indicating administration times for a drug to be delivered to a 
patient and a lockout period that must elapse after delivering a dose before another 
dose is delivered to said patient; and 

transmitting, to a dosage dispensing device, data that specifies the lockout period. 

42. The method of Claim 41, wherein the step of transmitting includes the steps of 
transmitting to a dosage dispensing device that dispenses a liquid. 
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